 
 ;; Functions to operate on game state
 
-(def terminal-hierarchy 
+(def terminal-hierarchy
   (-> (make-hierarchy)
       (derive :terminal-left-paren :terminal)
       (derive :terminal-right-paren :terminal)
       (derive :terminal-left-square :terminal)
       (derive :terminal-right-square :terminal)
-      
+
       (derive :terminal-id :terminal-param)
       (derive :terminal-num :terminal-param)
 

     (let [c (get-in c/cards [card])]
       (conj v {:key card
                :turns-left (:turns-left c)})))))

;;; API


        ;; delete card from player
        (delete-card player-key card-pos)
        (log-message (str (get-player-name-by-id game-map player-key) " played " (get-card game-map player-key card-pos)))

        (check-for-win)
        ;; log winner
        (#(let [winner (:win %)]
