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