(define-constant CONTRACT-OWNER tx-sender)
(define-constant ERR-NOT-AUTHORIZED u401)

(define-public (admin-airdrop (addresses (list 1000 principal)) (amounts (list 1000 uint)))
  (begin
    (asserts! (is-eq tx-sender CONTRACT-OWNER) ERR-NOT-AUTHORIZED)
    (print (map airdrop addresses amounts))
    (ok true)
  )
)


(define-public (airdrop (address principal) (amount uint))
  (begin
    (asserts! (is-eq tx-sender CONTRACT-OWNER) ERR-NOT-AUTHORIZED)
    (try! (contract-call? .btc-monkey-bananas transfer amount tx-sender address none))
    (ok true)
  )
)