define(f,`$1ifelse($1,0
,,index($1,10),0,`f(patsubst($1,10,9))',`f(translit($1,1-9,0-8))')')f(include(/dev/fd/0))