diff --git a/a3.r b/a3.r
index 71f17fec79b4f672d3039d9b285398dda33c1576..61bbdd43cfe3de4704ecc90f235c8c1fd425c0f7 100644
--- a/a3.r
+++ b/a3.r
@@ -47,8 +47,8 @@ apriori <- function(itemsets, min_support, display_candidates=TRUE, display_freq
             # Not first level.
         }
 
-        # catn('Freq Itemsets:')
-        # print(frequent_itemsets)
+        catn('Freq Itemsets:')
+        print(frequent_itemsets)
     }
 
     catn('================================================================================')
@@ -110,6 +110,11 @@ apriori_initialize_candidates <- function(initial_set, level, debug=FALSE) {
         }
     }
 
+    # Reorder to be more human-legible.
+    cand_order <- order(cand_names)
+    candidates <- candidates[cand_order]
+    cand_names <- cand_names[cand_order]
+
     if (debug) {
         catn('Final candidate set:')
         print(candidates)