(doseq(a(set'i(loop while(listen)collect(read))))(format t"~A
"(1+(count a i :test'<))))