(define-public (burn)
  (claim-and-burn tx-sender))

(define-public (burn-five)
  (begin
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (ok true)
  )
)

(define-public (burn-ten)
  (begin
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (ok true)
  )
)

(define-public (burn-hundred)
  (begin
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (try! (claim-and-burn tx-sender))
    (ok true)
  )
)

;; Internal - Register token
(define-private (claim-and-burn (new-owner principal))
        (let (
            (token (unwrap-panic (contract-call? .byzantion-stacks-parrots claim)))
        )
        (contract-call? .byzantion-stacks-parrots transfer token new-owner 'SP000000000000000000002Q6VF78)
)
)