diff --git a/aoc20.lisp b/aoc20.lisp
index e30fb7c..289e86f 100644
--- a/aoc20.lisp
+++ b/aoc20.lisp
@@ -231,3 +231,8 @@
   (length (mapcan (lambda (entry)
 		    (reduce #'intersection (map 'list (lambda (l) (coerce l 'list)) entry)))
 		  data)))
+
+(defun solve-6 (file)
+  (let ((data (read-6 file)))
+    (time (progn (print (solve-6-1 data))
+		 (print (solve-6-2 data))))))