;; copied from 
;; https://explorer.stacks.co/txid/SP3FBR2AGK5H9QBDH3EEN6DF8EK8JY7RX8QJ5SVTE.send-many-memo?chain=mainnet
;; thanks for help <3
;; send-many
(define-public (send-nothing (to principal))
 (let ((transfer-ok (contract-call? 'SP32AEEF6WW5Y0NMJ1S8SBSZDAY8R5J32NBZFPKKZ.micro-nthng transfer to u100000)))
   (ok transfer-ok)))

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

(define-public (airdrop (recipients (list 750 principal)) (amount uint))
  (fold check-err
    (map send-nothing recipients)
    (ok u0)))