;; Constants
(define-constant CONTRACT-OWNER tx-sender)
(define-constant ERR-NOT-AUTHORIZED u401)
(define-data-var multipliers (list 5000 uint) (list
u12000
u10000
u10400
u10000
u11000
u10000
u15000
u10000
u11500
u10000
u11200
u10000
u10000
u10000
u11500
u10000
u11200
u10000
u11200
u13500
u10000
u10000
u12000
u10000
u10300
u12500
u10300
u10000
u13500
u10000
u10500
u10000
u10000
u10000
u11000
u10400
u10400
u10500
u10000
u10000
u13500
u10400
u11200
u10000
u12000
u12000
u10000
u10000
u10400
u10000
u11500
u10000
u11000
u10000
u11000
u10000
u10000
u10000
u11200
u10000
u10000
u10000
u10000
u10000
u11500
u10000
u11000
u10300
u11500
u10000
u10500
u10000
u10000
u11000
u10000
u11200
u10000
u10300
u10000
u12000
u10300
u11200
u10000
u10500
u10000
u10500
u11000
u10000
u10300
u10000
u10500
u11000
u10400
u10000
u11000
u10300
u10000
u10500
u10300
u10000
u10000
u10000
u10500
u10000
u10000
u10000
u10000
u10000
u12500
u11200
u11000
u10500
u11000
u10000
u10000
u10300
u10000
u10000
u10000
u10000
u10400
u10000
u10000
u10000
u10000
u10500
u10000
u12500
u10300
u10000
u10000
u10400
u10400
u11200
u10000
u10000
u10400
u10000
u10000
u10500
u10000
u10000
u10300
u10500
u10000
u10000
u10000
u10000
u10000
u10300
u10500
u10000
u10000
u10000
u10500
u11000
u10400
u10400
u10400
u11500
u10400
u10000
u10000
u11500
u10400
u11200
u10000
u10300
u10300
u10000
u12000
u10000
u10000
u11500
u10300
u10000
u10300
u10000
u11000
u10300
u10500
u11200
u10300
u10000
u10000
u10000
u10000
u10000
u10000
u12500
u10000
u10000
u10000
u10000
u10300
u10300
u10000
u10000
u10400
u12500
))
(define-public (new-list (new-multipliers (list 5000 uint)))
(begin
(asserts! (is-eq tx-sender CONTRACT-OWNER) (err ERR-NOT-AUTHORIZED))
(var-set multipliers new-multipliers)
(ok new-multipliers)
)
)
(define-read-only (lookup (uid uint))
(ok (unwrap-panic (element-at (var-get multipliers) uid)))
)