define(f,`ifelse($1,8000,,9`f(incr($1))')')f(0)
f(0)