     (let [cells (vals @gameboard)]
       [:div#container
        ; game title
-       [:h1 "The memory game"]
+       [:h1 "The Memory Game"]
        ; win status
-       [:h2 (if (won-game?) "You won!")]
-       ; the gameboard
+       [:h2 (if (won-game?) "You won!!!")]
+       [:h2 (count @gameboard)]
+       [:h2 (count @matched)]
+       [:h2 @counter]
+       ; the gameboard 
        [:table#gameboard
         ; taking 4 cells at a time for each row
         (map-indexed

         (partition 4 cells))]
       ; text link to reset the game
       [:p [:a {:class "new-game" :on-click #(new-game)
                :href "#"} "New game"]]])))

(defn current-page []
  [:div [(session/get :current-page)]])

(defn mount-root []
  (reagent/render [board-page] (.getElementById js/document "app")))

(new-game)

(defn init! []
  (accountant/configure-navigation!)
  (accountant/dispatch-current!)
  (mount-root))
