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