(doseq(n'#1=#.(loop while(listen)collect(read)))(format t"~D
"(1+(count n'#1#:test'<))))