((rec,r(let*((l(string->list(read-line)))`(^c((^'\(if(>\ 0)'(inc! r\)))print((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