: a 1+ 1 do ?dup if i . 1- else i 0 .r cr 1+ dup then loop ; 0. stdin slurp-fid evaluate a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page