gistfile1.txt

(page "index.html")

(defc c1 10)
(defc c2 20)
(defc c3 30)

(defn inc-c1c2! [also]
  (dosync
   (also)
   (swap! c1 inc)
   (swap! c2 inc)))

(defn inc-c2c3! []
  (dosync
   (swap! c2 inc)
   (swap! c3 inc)))

(cell= (print c1 c2 c3))

;;; => 10 20 30

(inc-c1c2! inc-c2c3!)

;;; => 11 22 31

(html
  (head
    (link :rel "stylesheet" :type "text/css" :href "css/main.css"))
  (body (h1 "hi")))