;; Constants
(define-constant CONTRACT-OWNER tx-sender)
(define-constant ERR-NOT-AUTHORIZED u401)
(define-data-var multipliers (list 5000 uint) (list
u10500
u10800
u10000
u10000
u10000
u10000
u10500
u10000
u10800
u10000
u10000
u10000
u10500
u10500
u10000
u10500
u11200
u10000
u10500
u10000
u10000
u10000
u10400
u10800
u10000
u10000
u10000
u10400
u10500
u10500
u10000
u10000
u10000
u10500
u10000
u10500
u10000
u10000
u10000
u10000
u10000
u10400
u10000
u10000
u10500
u10400
u10400
u10000
u10000
u10500
u10000
u10500
u13500
u10500
u10000
u10400
u11200
u10000
u13500
u10400
u10000
u10000
u10500
u10400
u10000
u11200
u10000
u10000
u11500
u10000
u10800
u10000
u10000
u11500
u11500
u10500
u10000
u10000
u10000
u10000
u13500
u10500
u11200
u10000
u10400
u10000
u10500
u10000
u10400
u10000
u10500
u10000
u10400
u10000
u10500
u10500
u10400
u10500
u10400
u10000
u10000
u10000
u10400
u10500
u10000
u13500
u10500
u11500
u10000
u10000
u10000
u10000
u10000
u10500
u10000
u10000
u10000
u10500
u12500
u10000
u10400
u10000
u10000
u10500
u10500
u10000
u12500
u10500
u10000
u10400
u10800
u10000
u10000
u10400
u10000
u10400
u10000
u10500
u11500
u11200
u10400
u10000
u10000
u10000
u10400
u10800
u10800
u10000
u10000
u10000
u11200
u10400
u10400
u10500
u10000
u11500
u10500
u10000
u10000
u10000
u10500
u11200
u10000
u10800
u10400
u10500
u10000
u10500
u10500
u11200
u10000
u10500
u10000
u10500
u10000
u10400
u10500
u10000
u10500
u10000
u10000
u10000
u10000
u10800
u10000
u10000
u10000
u10500
u10500
u10400
u10500
u10500
u10800
u10000
u10000
u11500
u12500
u10000
u10400
u10000
u10500
u10000
u12500
u10400
u10000
u10800
u10000
u10000
u10500
u10800
u10500
u10000
u11200
u10000
u12500
u10400
u11500
u10000
u11200
u10500
u10500
u10000
u10500
u10500
u10000
u15000
u10000
u10800
u13500
u10500
u10400
u10000
u10400
u10500
u10000
u10000
u11200
u10000
u10000
u10500
u10000
u12500
u10500
u10000
u10000
u10400
u10500
u10000
u10500
u10000
u10500
u10500
u10000
u10500
u10000
u10800
u10000
u10000
u10500
u10400
u10000
u10500
u10500
u10000
u10400
u10500
u10000
u10000
u10000
u10000
u10500
u10800
u10500
u10000
u10000
u10000
u10500
u10000
u10000
u10400
u10000
u10000
u10000
u10000
u10500
u10000
u10800
u10000
u10000
u10500
u10000
u10400
u12500
u10000
u10400
u10000
u10000
u10500
u11200
u10500
u15000
u10000
u10000
u10500
u10400
u10000
u10500
u10800
u10000
u10000
u10000
u10000
u10000
u10500
u10000
u10000
u10000
u10500
u10500
u10500
u10500
u10500
u11500
u10500
u10800
u10500
u10000
u10000
u11500
u10400
u11200
u10500
u10800
u10000
u10000
u10400
u10000
u10000
u10000
u10400
u10000
u10000
u10000
u10000
u10500
u10500
u11500
u10800
u10500
u10000
u10500
u10000
u10500
u11200
u12500
u10400
u10000
u10000
u10000
u11200
u10000
u10400
u11500
u12500
u10400
u10400
u10500
u10000
u10000
u10000
u10000
u10000
u10400
u10000
u10000
u10500
u10000
u10000
u10500
u10400
u10000
u10500
u10000
u10000
u10500
u10400
u10500
u12500
u10000
u10400
u10400
u10000
u10000
u10000
u10000
u10500
u10000
u10000
u10000
u10500
))
(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)))
)