define(a,`format(%12s,$1) define(`i',incr(i))b((i+(i>16)*(32-i*2)),1)')define(b,`ifelse(eval($1<$2),0,`ifelse(eval(($1+$2)%($2*2)),0,-------ifelse(i,16,` winner!',+),` ifelse(eval($1/$2%4%3),0,` ',i,16,+,|)')b($1,($2*2))')')define(i)patsubst(include(../fd/0),\S+,`a(\&) a()')
Note that non-ascii characters in the above source code will be escaped (such as \x9f).