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