((rec,r(let*((l(string->list(read-line)))`(^c((^n(if(> n 0)(print(inc! r n))))((count$(pa$ eq? c))l))))`#\-`#\_),r)0)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page