define(g,`ifelse(len($1),2047,$1,`g($1
translit($1,01,10))')')g(0)