/@{forall}def[1[[.runstdin]{-1 1{1}for]{/_ exch def][0 2 index{_ mul add dup 10 mod exch 10 idiv}@ -99 1{}for}@]aload{pop =only}@()=[1[}@
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page