(loop(read-sequence(set's(make-list 451))(make-stream 0))(format t"~A
"(count t(map'list'char=(#1=subseq s 2)s(#1#s 42)#420(#\*)))))