while(?read(?-,?-,0)#0)do(s:?read\-line(),a:?read(),if(a<0)then s:sreverse(s),sum(printf(?t,"~a",s),i,1,abs(a)),newline());
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page