(setf l(loop while(listen)collect(read))m(case(nth 6 l)(9'(8 13))(7'(5 8 13))(t'(5 7 11 19 21 27)))n 0)(loop(format t"~D~@[*~]
"(elt l n)(find(incf n)m)))