Get users to write ref mutations themselves.

src/koans/refs.clj

@@ -24,4 +24,12 @@
   (= "better!!!!!!" (letfn [(exclamator [x] (str x "!"))]
           (dosync
             (alter the-world ___))
-          @the-world)))
+          @the-world))
+
+  "Don't forget to do your work in a transaction!"
+  (= 0 (do __
+         @the-world))
+
+  "Functions passed to alter may depend on the data in the ref"
+  (= 20 (do
+          (dosync (alter the-world ___)))))

src/path_to_answer_sheet.clj

@@ -115,8 +115,11 @@
                  "\"hello\""
                  "\"better\""
                  "\"better!!!\""
+                 '(dosync (ref-set the-world 0))
+
                  ]
-           "___" ['(comp exclamator exclamator exclamator)]}
+           "___" ['(comp exclamator exclamator exclamator)
+                  '(fn [x] (+ 20 x))]}
    })
 
 (defn replace-with [s k replacements]