    [:th "Tags"]
    [:th "Count"]
    [:th "Solved?"]
-   (let [solved (get-solved (session/session-get :user))]
+   (let [solved (get-solved (session/session-get :user))
+         problems (get-problem-list)]
      (map-indexed
       (fn [x p]
         [:tr (row-class x)

          [:img {:src (if (contains? solved (p :_id))
                        "/checkmark.png"
                        "/empty-sq.png")}]]])
      (get-problem-list)))])

     [:div {:id "prob-desc"}
      (problem :description)[:br]
      [:div {:id "testcases"}
       (for [test (:tests problem)]
         [:li {:class "testcase"} test])]
      (if-let [restricted (problem :restricted)]
        [:div {:id "restrictions"}
         [:u "Special Restrictions"] [:br]
         (map (partial vector :li) restricted)])]
     [:div
      [:b "Enter your code:" [:br]
       [:span {:class "error"} (session/flash-get :error)]]]
