(define-data-var message (string-utf8 "GM"))

(define-read-only (get-message)
  message)

(define-public (set-message (new-message (string-utf8)))
  (begin
    (setq message new-message)
    (ok true)))
