 
 (def-page problem-submission-page []
   [:div.instructions
-    [:p "Thanks for choosing to submit a problem. Please make sure that you own the rights to the code you are submitting and that you wouldn't mind having us use the code as a 4clojure problem."]]
+   [:p "Thanks for choosing to submit a problem. Please make sure that you own the rights to the code you are submitting and that you wouldn't mind having us use the code as a 4clojure problem."]]
   (form-to {:id "problem-submission"} [:post "/problems/submit"]
-           (hidden-field :author (session/flash-get :author))
-           (hidden-field :prob-id (session/flash-get :prob-id))
-           (label :title "Problem Title")
-           (text-field :title  (session/flash-get :title))
-           (label :tags "Tags (space separated)")
-           (text-field :tags  (session/flash-get :tags))
-           (label :description "Problem Description")
-           (text-area {:id "problem-description"} :description  (session/flash-get :description))
-           [:br]
-           (label :code-box "Problem test cases. Use two underscores (__) for user input. Multiple tests ought to be on one line each.")
-           (text-area {:id "code-box" :spellcheck "false"}
-                         :code (session/flash-get :tests))
-           [:p
-             [:button.large {:id "run-button" :type "submit"} "Submit"]]))
+    (hidden-field :author (session/flash-get :author))
+    (hidden-field :prob-id (session/flash-get :prob-id))
+    (label :title "Problem Title")
+    (text-field :title  (session/flash-get :title))
+    (label :tags "Tags (space separated)")
+    (text-field :tags  (session/flash-get :tags))
+    (label :description "Problem Description")
+    (text-area {:id "problem-description"} :description  (session/flash-get :description))
+    [:br]
+    (label :code-box "Problem test cases. Use two underscores (__) for user input. Multiple tests ought to be on one line each.")
+    (text-area {:id "code-box" :spellcheck "false"}
+               :code (session/flash-get :tests))
+    [:p
+     [:button.large {:id "run-button" :type "submit"} "Submit"]]))
 
 (defn create-problem
   "create a user submitted problem"

    (let [{:keys [user title description tags tests]} (get-problem id)
          email (:email (get-user user))]
      (destroy! :problems
        {:_id id})
      (send-email
       {:from "team@4clojure.com"
        :to [email]

(defn get-problem-list 
  ([] (get-problem-list {:approved true}))
  ([criteria] 
     (from-mongo
      (fetch :problems
             :only [:_id :title :tags :times-solved :user]
             :where criteria
             :sort {:_id 1}))))

(defn next-unsolved-problem [solved-problems]
  (when-let [unsolved (->> (get-problem-list)
