(n-of 20(prn:/(count"*"(tokens:n-of 451(readc)))2))