(while:prn:sum[count #\1(coerce _'string 2)](flat:ssexpand:read))