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