binding-magenta-scorpion

(define-public (r1-no-min-1stx)
  (let
    (
      (t u1000000)
      (stx_to_aeusdc
        (unwrap!
          (contract-call?
            'SM1793C4R5PZ4NS4VQ4WMP7SKKYVH8JZEWSZ9HCCR.xyk-swap-helper-v-1-3
            swap-helper-a
            t
            u1
            none
            (tuple
              (a 'SM1793C4R5PZ4NS4VQ4WMP7SKKYVH8JZEWSZ9HCCR.token-stx-v-1-2)
              (b 'SP3Y2ZSH8P7D50B0VBTSX11S7XSG24M1VB9YFQA4K.token-aeusdc)
            )
            (tuple
              (a 'SM1793C4R5PZ4NS4VQ4WMP7SKKYVH8JZEWSZ9HCCR.xyk-pool-stx-aeusdc-v-1-2)
            )
          )
          (err u2001)
        )
      )
      (aeusdc_to_sbtc
        (unwrap!
          (contract-call?
            'SPMGC5NE2SS13RACX328DZ90RZFTC2YHH068Y3FD.sbtc-aeusdc-v1
            swap-b-to-a
            stx_to_aeusdc
          )
          (err u2002)
        )
      )
      (dy (get dy aeusdc_to_sbtc))
      (sbtc_to_stx
        (unwrap!
          (contract-call?
            'SM1793C4R5PZ4NS4VQ4WMP7SKKYVH8JZEWSZ9HCCR.xyk-swap-helper-v-1-3
            swap-helper-a
            dy
            u1
            none
            (tuple
              (a 'SM3VDXK3WZZSA84XXFKAFAF15NNZX32CTSG82JFQ4.sbtc-token)
              (b 'SM1793C4R5PZ4NS4VQ4WMP7SKKYVH8JZEWSZ9HCCR.token-stx-v-1-2)
            )
            (tuple
              (a 'SM1793C4R5PZ4NS4VQ4WMP7SKKYVH8JZEWSZ9HCCR.xyk-pool-sbtc-stx-v-1-1)
            )
          )
          (err u2003)
        )
      )
    )
    (ok
      (tuple
        (stx_to_aeusdc stx_to_aeusdc)
        (aeusdc_to_sbtc aeusdc_to_sbtc)
        (sbtc_to_stx sbtc_to_stx)
      )
    )
  )
)

(define-public (r2-no-min-1stx)
  (let
    (
      (t u1000000)
      (stx_to_sbtc
        (unwrap!
          (contract-call?
            'SM1793C4R5PZ4NS4VQ4WMP7SKKYVH8JZEWSZ9HCCR.xyk-swap-helper-v-1-3
            swap-helper-a
            t
            u1
            none
            (tuple
              (a 'SM1793C4R5PZ4NS4VQ4WMP7SKKYVH8JZEWSZ9HCCR.token-stx-v-1-2)
              (b 'SM3VDXK3WZZSA84XXFKAFAF15NNZX32CTSG82JFQ4.sbtc-token)
            )
            (tuple
              (a 'SM1793C4R5PZ4NS4VQ4WMP7SKKYVH8JZEWSZ9HCCR.xyk-pool-sbtc-stx-v-1-1)
            )
          )
          (err u2011)
        )
      )
      (sbtc_to_aeusdc
        (unwrap!
          (contract-call?
            'SPMGC5NE2SS13RACX328DZ90RZFTC2YHH068Y3FD.sbtc-aeusdc-v1
            swap-a-to-b
            stx_to_sbtc
          )
          (err u2012)
        )
      )
      (dy (get dy sbtc_to_aeusdc))
      (aeusdc_to_stx
        (unwrap!
          (contract-call?
            'SM1793C4R5PZ4NS4VQ4WMP7SKKYVH8JZEWSZ9HCCR.xyk-swap-helper-v-1-3
            swap-helper-a
            dy
            u1
            none
            (tuple
              (a 'SP3Y2ZSH8P7D50B0VBTSX11S7XSG24M1VB9YFQA4K.token-aeusdc)
              (b 'SM1793C4R5PZ4NS4VQ4WMP7SKKYVH8JZEWSZ9HCCR.token-stx-v-1-2)
            )
            (tuple
              (a 'SM1793C4R5PZ4NS4VQ4WMP7SKKYVH8JZEWSZ9HCCR.xyk-pool-stx-aeusdc-v-1-2)
            )
          )
          (err u2013)
        )
      )
    )
    (ok
      (tuple
        (stx_to_sbtc stx_to_sbtc)
        (sbtc_to_aeusdc sbtc_to_aeusdc)
        (aeusdc_to_stx aeusdc_to_stx)
      )
    )
  )
)

(define-public (run-both-no-min-1stx)
  (let
    (
      (res1 (unwrap! (r1-no-min-1stx) (err u2101)))
      (res2 (unwrap! (r2-no-min-1stx) (err u2102)))
    )
    (ok (tuple (r1 res1) (r2 res2)))
  )
)