vvfgv

(define-public (check-many-1)
  (ok {
    a: (check-many-a (var-get address-list-1)),
    b: (check-many-b (var-get address-list-1)),
    c: (check-many-c (var-get address-list-1)),
    d: (check-many-d (var-get address-list-1)) 
  }))

(define-public (check-many-2)
  (ok {
    a: (check-many-a (var-get address-list-2)),
    b: (check-many-b (var-get address-list-2)),
    c: (check-many-c (var-get address-list-2)),
    d: (check-many-d (var-get address-list-2)) 
  }))

(define-public (check-many-3)
  (ok {
    a: (check-many-a (var-get address-list-3)),
    b: (check-many-b (var-get address-list-3)),
    c: (check-many-c (var-get address-list-3)),
    d: (check-many-d (var-get address-list-3)) 
  }))

(define-public (check-many-4)
  (ok {
    a: (check-many-a (var-get address-list-4)),
    b: (check-many-b (var-get address-list-4)),
    c: (check-many-c (var-get address-list-4)),
    d: (check-many-d (var-get address-list-4)) 
  }))

(define-read-only (check-many-a (address (list 200 principal)))
  (fold check-err (map check-scs-user-lp address) (ok u0))
)

(define-read-only (check-many-b (address (list 200 principal)))
  (fold check-err (map check-wcs-user-lp address) (ok u0))
)

(define-read-only (check-many-c (address (list 200 principal)))
  (fold check-err (map check-scs-lands-lp address) (ok u0))
)

(define-read-only (check-many-d (address (list 200 principal)))
  (fold check-err (map check-wcs-lands-lp address) (ok u0))
)

(define-private (check-err (result (response uint uint)) (prior (response uint uint)))
  (match prior ok-value result err-value (err err-value))
)

(define-private (check-scs-user-lp (address principal))
  (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.lp-recovery-calculator scs-user-lp-checker address u166688)
)

(define-private (check-wcs-user-lp (address principal))
  (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.lp-recovery-calculator wcs-user-lp-checker address u166688)
)

(define-private (check-scs-lands-lp (address principal))
  (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.lp-recovery-calculator scs-lands-lp-checker address u166688)
)

(define-private (check-wcs-lands-lp (address principal))
  (contract-call? 'SP2ZNGJ85ENDY6QRHQ5P2D4FXKGZWCKTB2T0Z55KS.lp-recovery-calculator wcs-lands-lp-checker address u166688)
)

(define-data-var address-list-1 (list 200 principal) (list
  'SPGYCP878RYFVT03ZT8TWGPKNYTSQB1578VVXHGE
  'SP262CK3VPG6PDF4S96TTXFBVV9Y9Z75F51A6G83N
  'SP1KMAA7TPZ5AZZ4W67X74MJNFKMN576604CWNBQS
  'SP26PZG61DH667XCX51TZNBHXM4HG4M6B2HWVM47V
  'SP2JWM4MB1SBY2FT3PG5PM0V12NW8Y4FK1XXWBHSF
  'SP3W83KG17KJZZXPDZQDTRQKQRGHNFZN410R9P02E
  'SP3T1M18J3VX038KSYPP5G450WVWWG9F9G6GAZA4Q
  'SP16VAAGEE7XE3DFZZSFDW7T5SCJR1N0WY3CVQ00B
  'SP20VRJRCZ3FQG7RE4QSPFPQC24J92TKDXJVHWEAW
  'SP3KVRE3RDYYSJ3JDGXKA0K15CC4JEA2ZGX4TJ5EC
))

(define-data-var address-list-2 (list 200 principal) (list
  'SP13P8H3WN71ACNZ8AN4YK2R7NW1P8XTVTNE84KHB
  'SP2SMSPX443W4HTX9YT9WVV5C0A212FJ8WQMGT51M
  'SP2FPTH274BXVB1E2HNXBAMGABV5TCSZTFNC16FR3
  'SP39KRQADXSNTZPBHSKAWHD1S61BH2SJDWFYPNYDR
  'SP2FQ9RB2EVMJW7T8S5X1XVGS4F774S594E3D52WH
  'SP3BW03953R9TGHB3D8NW6QSWMHH09K9D2CMZE2C6
  'SP3R9REDFB3KEFK4Y3JYSZ86YR93TCJP4NVM4FDQQ
  'SPXW6EQXX4H553ZQEFSDGR6709VCV5WCDSS03J16
  'SP22DC2E4YTYNMT7QKRXG80WDH4P1N6TPBVV50EJP
  'SP1J9CFRV5C69EQ0E8PP95Y5W4FBP53M7G133SZAH
  'SP32SCFJ05BN6EEH3SAC7AC9M9TXE33XY8K3H990J
  'SP3GQR81NG8ERGZD46VJ7RR94XFBGFTCXXBYYT701
  'SP1VD8VF055DGMWR29N89X1W7NXFFWJHSF99J43NN
  'SP27JJS3774KPR0MMB5FH77VWBD8KD0SVNZ4QNX5X
  'SP3YXYKW414YNY94E23AB7F5K1RQV001J71YYF2SC
  'SP1PR96CX3GH05Y2WN66TWSJZ1Q4VTSNMX7F2DSC0
  'SP3TAQCT0KQ1TC9E6XJ33J26XPG1DGSPS61M61H9G
  'SP10F5W11YT4HH62VSKA7R9TY1PAXC2JPKNN8ZD5A
  'SP2CTV5SX2GJJWGVEBQ951DQGBK0144RHMSKHGTZG
  'SP11Z0M9SXMXM2BGQHDPT0B9Z03TDE56WFSF6EEX8
))

(define-data-var address-list-3 (list 200 principal) (list
  'SP4C561Q3TTFP836MZA4TXGRS3SXZPM2TYR3C6V7
  'SP33BMBB3E5EZMRM598MA23A4YGWJG7PXSTXPDAC3
  'SPTD40A2TYR54RQ3GJJN80TGPAF98E2KGESAEAKR
  'SPTGQJPEZKS9S5SWQBQJRE6P5CKGSGBY1EM1E40
  'SP1S1EK45BMDAZRDZSXYXF7HFSN400030B8MNK340
  'SP394FNPMFQWRJHTT2CVM30MPADW948Y8S0RXHM4B
  'SP32681KRBDH0PM2QB12ZR0KXHEHPNWFXM45AVXVH
  'SP1Y2B9527C057X1MBCXADS1FYY5PM9SKGRZRMVGB
  'SP3XF7DW9K4R0E23BKF9244TEJJM3DN5WWV5CW2Z2
  'SPFPGTQFD6EFFBYAAFRB2APA2AYJTG6P5P9XRTZ4
  'SP3EH6XTCEW1PXGHVK34VN53T4W4GY2PB8FBGN7HA
  'SP1ZY2ZXY9QR5CNEGDPNZHC88T781ARC9VT6S7HS3
  'SPYYQXXZ0PT8RA5KBRQWB8KGHAMDGERP9H243E1J
  'SP2H6E5NJS0KCRJA577RA0B0P6FJT2JCAZCK7R1WM
  'SP3HSMAQNKD029880297FBXMYC2QT4BS07RTWS0FD
  'SPRS26BHGZGZ0AP9VEX718S9H8XT4KFHWSV8NY07
  'SPA161K7PR8Y1KV8N5V1HRABA7G64ZZA78X5XP0W
  'SPK40QN3YCT0CHT2DFC17W7NG54FPYCHGN41ACQV
  'SP313MRFF9AK07W9P1WETX32ZTH3V9MQ6VVM8BF62
  'SP3561G51Z4G06G66AZXSS65QDYYW7N2WYD6YP23Q
  'SP2FSCH9EGTSWBZPKXWRGZXT5DD03NSEJ0SX1XRCJ
  'SPNXAX4E0952XERSXBQ5VNQ9A3D0B7MGBQTEFB7C
  'SP21F9X20AXC2KFVSGXHZVZHQ1T7PR2P7WAYYB78E
  'SP2GMKYSQQ7RP4TSGQ1QJAMMV7ZY3JFTPJCRE3S4F
  'SP2AGHZQXV2WQ0AXBJ0RB39JW8VPVHBNSAJJJ6PHX
  'SP308TTPX0XTY1TQ7DPDD45DEHRNDPG1DCJHJ6RR8
  'SP2CGXYX1V7APZP9E03D6GFJYBM0PH2FRGX7NJRA
  'SP24SBJMZYS9FWKQZVVDZGM595EYGRT6368ND7MEA
  'SP2NKY5A0501A1CNMNR4Z1AX2MA6AJ03R6M2EEH98
  'SP1B14W7S57Q471J0E61A01YGQBC3KMZ0WEAWAE39
  'SP2ZMHZE792DEC1196H5TQBKXEHP33BBJR2WC1Q0V
  'SP3PSRA8PV42GEB8K70CESKHPZFG9MRB4FZANS2KA
  'SP1JN8HK5SJ9Q404ZAQ6JK8WD74Y62PD03ZJWBMVN
  'SP1G7YWW8JEZMTZXY1VWEQCCGSFBQYEY1ZXXFD2W4
  'SP3EJCRT5V10W6JBS8D76J5PXCTF0SD250N1Z1HRS
  'SP1ZRFHFGMXGZKEM0FS08MKVE608DMKKX1MF5T30P
  'SP5CWSZJ928HRA3YPN5QTJ3PK9ZC20PBTDNJZM8Y
  'SP3MZYWF2JWWYSP5NEH9Z8Y46D3HZVY3CZD5RGVHD
  'SPMF5MT7BFT4V3YV6V5DG2AJJK7ST273WN4ZG8SB
  'SP3F8C35X34SKQXVJ44HCT3P072ETQVEJQ37VQ98W
  'SPMFA2XE21YAXX8JGANYRNTEY989BQK8QGCWAD0G
  'SP2KT9B9TGJJ9ZY6G7MD2BPFT3E879WMVNSP5JNPV
  'SP3NWJKKE77ZSYBM5WEFYDHBJDE4THB9T5S2DGAN2
  'SP1563V6RA3XEJHZ7HHD6JAF8JJ03W0KRMQM3TD0T
  'SP3TN9N83VNHM38P9RP6HJZZ4A6SPGKYJ8DTCKJW4
  'SP306YWEQCB3YE1ZX4ZS0ZEW089F8PDG11BE38MTX
  'SP0FXTGWB5EDHTKQAYBR58SCKBJKCNGAM40H91HR
  'SP13YN0WR458V3PX6XA1PC1XXV3JBJ3R1BFYX4G2N
  'SPJDGVNQ83JVGBCNBJV8NEYXQEJXNTFT7TQSP6BJ
  'SP1STK37SQNKY31TJVNZ6CMYSAC47VQPD6XA0Z1A3
))

(define-data-var address-list-4 (list 200 principal) (list
  'SP3T7HWMNDMB0Q4N24W2DM7ANS42TP833KAK714M0
  'SP31R2D422MR0QHC2GY2TD4BZJZDVVHDHJ48Y6XE2
  'SP39Y9Q1Z5TEBGRNVNHNCF015M12SQWPBJA741262
  'SP1DNB8NFT1B10G4S6TN9F2ZBA1WS1TWCE20QYB4P
  'SP1TPBSKSBDTZW406PYBSBVAJMVD0KDGQ1P3Z16RE
  'SP2RYWNM8VWM2M7VG9W5SR5S617CD3Y091PCQGHBF
  'SP366Y28519SE18AQMJ6CRQR1E05JYYQJM2YN4XPQ
  'SP1ET2F3ARW365ADA90NPV9SJHEBWAVVNNHQGT1PH
  'SP9XVN6QMN1XEGTM6SR6ZDHZDAWJ6Y6RNMDPZ7Y9
  'SP34NJCCYANQR5YAY58JHX7AGCZ4E82EFYD0FR0TP
  'SP1RB1V65A1PAAXYT8PVFFFC6T1FN9E8RQX7HMDKC
  'SP3RYGTCPHMMD2MSJ7VHX7AZWQHHXF4JZP7BQW0G0
  'SPB554NZYV3PM1F9GGWGZ71FAK4YKHVDAJHP08SM
  'SP2Y1SYVF1PX7EBGM00QY2ARE6BBGK59QDA9B3EHK
  'SP2H3TTG3MQK9CEF59S7VQ86H4FX9CH596ZXSE2EK
  'SP24Y9TDFABS6RMHDJ8PQB3MEDTM19TZGEB2ZJ8QF
  'SP3TW60M88XFKRT9E5QXKA3RW7YZCH2G93NJ8EDAK
  'SP2T424HFWWMSYMWRZV6J3PJ2K36X3HWZ7S0KTXZ3
  'SPY61MF42XT81KB36J3ZA7EXB1M2VRYQM9AZ0MYA
  'SP2J8FYCX382ZPFWFHKWQPPGN13JZG10FC3HDHZWR
  'SPK2Z9CB6VQD91GQC8C2R21H1J0JRJEV9GDYQEBN
  'SP3TZ3BCB16A0W0PPFYMGTTWTT3DVWTQEP8DFRAG1
  'SP10RQSHF7410BWSWGG113EM5T2KD1EK3DXC0062K
  'SP13ZCJD150MM2EGV8P67D2PWCGHEE2YDBKZRJ150
  'SP11MZNWA0W5J15P9NFPHP45KN4RM975RJDR85B76
  'SP1TE7M8SDKMP1YJYXVGSNCQZH2ZPKC37BBPZDZ26
  'SP2D4JG2J2JK230CYEZC6VHNF5GF2W4M4VWRRAKCK
  'SP3Y7Z4A50727ST812HFKD6G34WFK26KV1CE9FR2M
  'SP2537Z4XCCQ1XEGS4DQQD7KC8DNGHMT85FJ8JY3C
  'SPSSE4Q4G9QV5P3XVJA72Y4ZY63JQHT60CD4YGBT
  'SP32Q8KWX66BVKY240R0EA2B2EGPZYEPFQ0ZXQPWZ
  'SP18QG8A8943KY9S15M08AMAWWF58W9X1M90BRCSJ
  'SP3ATXBS4ZSXX3DCDZDT8FMHK9MEHRF5A9XD11M60
  'SP3S3X4WCNPTDZW0623D5MGFK6K8WR8PSQAXTY505
  'SP3ATFW5VSD0W4N0E3K1E4CGFE8MJXQ9XFFMQ0HBY
  'SP9JGMF6G3RT3W0YFHBXRW3A1T3D3GFB7M2AW5KR
  'SP3BZKVQM2RSXBMNZ4E2YC9TQT15S8PG7Z6W3V5NR
  'SP3FS1SG3273YCMS0G58B0JX0Y1EZQ8JPC92QCVHK
  'SP6ZCQDY5M3FZM1194986HTQES77ZQWWW372WGE7
  'SP1VTE98M0WVN9BSJ796J7VJQHM4M4KQQCDPCTHBX
  'SP2YHT981TCNR3KMTD48QSPH2ZKZVFGJWPCHR1DQA
  'SP3C7Y6C7CQT0K6BKJCYBGJ301BP8G43SKE8616J6
  'SP1FHC2XXJW3CQFNFZX60633E5WPWST4DBW8JFP66
  'SP1AGAJKWZ1MGYDC36H0TJ8C1R61VSGB2GN7QDVYR
  'SP1JHA6E6JWYZ6G9Q0Q5D3YH3C55G391GV9EP9JQ8
))