(while(let*(`display,string->number(\(read))(y(read))(t((#/ (.*)/(read-line))1))(d,#`"#e,t"))(while(<(inc!\ d)y)`(if(=\ 1)1(+(*,t 0)\))`" ")`" "))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page