human-chocolate-gibbon

(define-map votes principal bool)
(define-data-var total-votes uint u0)

(define-public (vote)
  (begin
    (asserts! (is-none (map-get? votes tx-sender)) (err u409))
    (map-set votes tx-sender true)
    (var-set total-votes (+ (var-get total-votes) u1))
    (ok true)
  )
)

(define-read-only (get-total-votes)
  (var-get total-votes)
)