diff --git a/app/Main.hs b/app/Main.hs
index 20acac2..fa4c98f 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -139,5 +139,5 @@ main = do
     let roffsets = randomOffsets gen allGifts
     args <- getArgs
     let os = if (length args) > 0 then roffsets else offsets
-    let tuples = zip ordinals $ selectGifts os
+    let tuples = zip (reverse ordinals) $ selectGifts os
     putStrLn $ foldr (\a b -> a ++ "\n\n" ++ b) "" $ reverse $ recurseVerse tuples