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