(define-public (register (namespace (buff 20)) (name (buff 48)) (stx-to-burn uint) (zonefile-hash (buff 20)))
  (let
    (
      (hashed-salted-fqn (hash160 (concat (concat (concat name 0x2e) namespace) 0x73616c74)))
    )
    (begin
      (try! (contract-call? 'ST000000000000000000002AMW42H.bns name-preorder hashed-salted-fqn stx-to-burn))
      (try! (contract-call? 'ST000000000000000000002AMW42H.bns name-register namespace name 0x64756d6d79 zonefile-hash))
      (ok true)
    )
  )
)

(define-read-only (echo (shout-out (string-ascii 100))) (ok (concat "Right back at you - " shout-out)))  ;; echo
