(load "euler.lisp")
(defun set-of-concatenatable-primes (list)
)
(defun solution ()
(combinations 5 (eratosthenes 30000))