RosettaCodeData/Task/Parallel-calculations/Common-Lisp/parallel-calculations-2.lisp

CL-USER> (print-max-factor (max-minimum-factor '(12757923 12878611 12878893 12757923 15808973 15780709 197622519)))
12878893 has the largest minimum factor 47
	`CL-USER> (print-max-factor (max-minimum-factor '(12757923 12878611 12878893 12757923 15808973 15780709 197622519)))`
	`12878893 has the largest minimum factor 47`