(format t "===== Part 1 =====")
(format t "Result: ~A~%~%" (time (part1 *data*)))

(format t "Part 1: ~A~%" (part1 *data*))
(format t "Part 2: ~A~%" (part2 *data*))

(format t "===== Part 2 =====")
(format t "Result: ~A~%" (time (part2 *data*)))