((^a(map(^s(print(do((\ 0(+\ 1))(u""#`",u,(~ s\\)"))((=(count(pa$ rxmatch #"^~u")a)1)u))))a))(port-map + read-line))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page