(while:prn:sum[count #\1(coerce int._'string 2)](tokens(readline)#\.))