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

      (spit src
            (str "\n(defn " prob "-solution [] ; Update args as needed!\n"
                 (-> project :description desc->comments) "\n"
                 "  nil)\n")
            :append true))))

(defn- no-test-yet

  (let [req (http/get (str fore-url n) {:as :json
                                        :throw-exceptions false})]
    (if (= (req :status) 200)
      ;; we don't need scores here and it's polluting debug logs
      (dissoc (req :body) :scores))))

(defn fore-prob
