((rec,r(let*((l(string->list(read-line)))`(^c((^n(if(> n 0)(print(inc! r n))))((count$(pa$ eq? c))l))))`#\-`#\_),r)0)