(do['#/(1?.)(.*)/(n(read-line)#`",(-(x->number('n 1))1),('n 2)")]((#/-/n))(print n))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page