File standardInput readLines map(a,for(i,a size-1,0,-1,a atPut(i,if(b:=a at(i)>48,48,49));b or break);a println)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page