(loop(format t"~A "(count #\1(format()"~{~B~}"(mapcar'parse-integer(asdf::split(read-line)4"."))))))