1 1 .runstdin 3 copy 1 sub{4 copy pop 1 sub{( )print 1 index mul 2 index 2 copy lt{( )print}if 3 string cvrs print}for pop/ =}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page