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)