(defn make-wire []
  (let [value (atom 0)]
    {
    :get (fn [] @value )
    :set (fn [new-value] reset! value new-value)
  }))

(def x (make-wire))
((:get x))
; 0
((:set x) 5)
; 5
((:get x))
;0