(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)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page