I:=1. stdin do:[:c|c=$.|(c=$-)and:[I:=I*2+c value- 45];or:[(', temnaiogkdwrus qzycxbjp l.fvh'at:I\\39\\37+1)display. c=$/or:[$ display].I:=1]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page