steel-spark-28

;; agate-plugin
(define-data-var rank uint u0)
(define-data-var last-caller principal tx-sender)

(define-public (increment)
  (begin
    (var-set rank (+ (var-get rank) u8))
    (var-set last-caller tx-sender)
    (ok (var-get rank))))

(define-public (reset)
  (begin
    (var-set rank u0)
    (ok true)))

(define-read-only (get-value)
  (ok (var-get rank)))

(define-read-only (get-last-caller)
  (ok (var-get last-caller)))