(loop(if(read)(format t"~A
"(/(count'*(read-delimited-list #\-))2))))