       (res "result"))))
 
 
-(s/def ::height (s/and integer? #(pos? %) ))
+(def hex-string? (partial re-matches #"[0-9a-fA-F]+"))
+
+(s/def ::height (s/and integer? #(pos? %)))
+(s/def ::hex-string hex-string?)
 
 (defn help 
   ([]

(def-rpc-opt getrawmempool verbose)
(def-rpc-opt gettxout txid n include_mempool)

;(s/def gettxoutproof ["txid",...] ( blockhash )
(def-rpc gettxoutproof txids blockhash)

(def-rpc gettxoutsetinfo)

;;--------------------------------


(defn get-block-hashes [] (map getblockhash (range (getblockcount))))

(defn block-of [block-hash] (getblock block-hash))

