define(g,`ifelse($2,0,,`g($1/2,decr($2))'substr(-wxr,eval($1%2*($2%3+1)),1))')define(f,`ifelse($1,512,,`eval($1,8,4) is g($1,10) f(incr($1))')')f(0)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page