From 84d2c22974752be5a6c4bdb0fed426afd288a6a7 Mon Sep 17 00:00:00 2001
From: Mike Lynch <m.lynch@sydney.edu.au>
Date: Wed, 24 Dec 2025 14:21:40 +1100
Subject: [PATCH] Fixed a bug with the ordinal words

---
 app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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