diff --git a/Main.hs b/Main.hs
index 6007106..f82b840 100644
--- a/Main.hs
+++ b/Main.hs
@@ -139,7 +139,7 @@ bucket s
     values = [fromJust $ eval assignments s | assignments <- enumerate $ atomsList]
 
 enumerate :: [a] -> [[(a, Bool)]]
-enumerate keys = aux start
+enumerate keys = map reverse $ aux start
   where
     aux assignments = (assignments:) $
       case next assignments of