1 files changed, 10 insertions, 10 deletions
diff --git a/model.lisp b/model.lisp
index 6554e80..a93cf6e 100644
--- a/model.lisp
+++ b/model.lisp
@@ -53,19 +53,19 @@
 
 (fn int->rank (n) (-> (int-card) rank)
   (case (mod n 13)
-    (0  :Ace)
-    (10 :Jack)
-    (11 :Queen)
-    (12 :King)
-    (t  (+ n 1))))
+    (9 :Jack)
+    (10 :Queen)
+    (11 :King)
+    (12  :Ace)
+    (t  (+ n 2))))
 
 (fn rank->int (rank) (-> (rank) (integer 0 12))
   (case rank
-    (:Ace    0)
-    (:Jack  10)
-    (:Queen 11)
-    (:King  12)
-    (t      (- rank 1))))
+    (:Jack  9)
+    (:Queen 10)
+    (:King  11)
+    (:Ace    12)
+    (t      (- rank 2))))
 
 (fn int->card (num) (-> (int-card) card)
   (cons (int->rank num)