define(_,`ifelse($1,,,`$1:format(%3d,eval(len($2)-len(translit($2,$1,))))
_(translit($1,A-Za-z,B-Za-z),$2)')')_(A,include(/dev/fd/0))