Lisp solution for euler 112.