storage-a02-XUZL

;; Version 4

;; Key-Value Storage
(define-map data principal uint)

(define-public (store (amount uint))
  (ok (map-set data tx-sender amount))
)

(define-read-only (retrieve)
  (ok (default-to u0 (map-get? data tx-sender)))
)

(define-read-only (retrieve-other (who principal))
  (ok (default-to u0 (map-get? data who)))
)

(define-read-only (get-info)
  (ok "active"))