           (println (str "Problem \"" title "\" added!"))
           (println (str "Problem \"" title "\" has already been added!"))))
       (catch Exception e
-        (println (str "Failed setting problem " prob-num ": " (.getMessage e)))
-        (shutdown-agents)))
+        (println (str "Failed setting problem " prob-num ": " (.getMessage e)))))
     (println "Cannot get problem" prob-num "(HTTP status != 200).")))

(ns leiningen.fore-prob
  "Populate the current project with a 4clojure problem."
  (:require [clj-http.client :as http]
            [clojure.java.io :as io])
  (:use [clojure.string :as cs :exclude [replace reverse]]))

;; Purloined from leiningen/src/leiningen/util/paths.clj
(defn- ns->path
  "Convert a namespace into a path"
  [n]
  (str (.. (str n)
           (replace \- \_)
           (replace \. \/))))

(defn- title->fn
  "Convert a problem title into a valid function name"

  (->>
   (map #(cs/replace % #"\b__\b" (str prob "-solution")) tests)
   (map #(cs/replace % #"\r?\n" "\n"))
   (map #(cs/join " " [(str (indent) "(is") % "\"" (enquote %) "\")"]))
   (cs/join "\n")))

(defn- write-tests
