   { :7 0 :8 1 :9 3 :Q 4 :K 5 :10 6 :A 7 :W 8 })
 (def figure-ordinal-null "Figures' ordnals in null games"
   { :7 0 :8 1 :9 3 :10 7 :W 4 :Q 5 :K 6 :A 8 })
+(def figure-ordinals "Figures ordinals for each game"
+  { :grand figure-ordinal-normal
+    :kreuz figure-ordinal-normal
+    :grun figure-ordinal-normal
+    :herz figure-ordinal-normal
+    :schell figure-ordinal-normal
+    :null figure-ordinal-null })
 (def figure-values "Values for each card figure"
   { :7 0 :8 0 :9 0 :W 2 :Q 3 :K 4 :10 10 :A 11 })
 

  { :grand 6 :kreuz 5 :grun 4 :herz 3 :schell 2 :null 1 })
(defrecord Configuration [type with-skat ouvert])

;;; Game

(defn deal-cards [] "Returns dealt cards"
  (let [shuffled-cards (shuffle deck)
        front (take 10 shuffled-cards)
        middle (take 10 (drop 10 shuffled-cards))
        rear (take 10 (drop 20 shuffled-cards))
        skat (take 2 (drop 30 shuffled-cards))]
    { :front front :middle middle :rear rear :skat skat }))

          (cards-grouped-by-color []
            (helpers/list-from cards-of-color colors))]
    (flatten (cards-grouped-by-color))))
(defn deal-cards "Returns dealt cards" []
  (let [shuffled-cards (shuffle deck)
        front (take 10 shuffled-cards)
        middle (take 10 (drop 10 shuffled-cards))
        rear (take 10 (drop 20 shuffled-cards))
        skat (take 2 (drop 30 shuffled-cards))]
    { :front front :middle middle :rear rear :skat skat }))

;;; Configuration

