define(A,changecom)define(G,`ifelse($3$4,::,,`substr($1,1,1)`'G($2,:substr($1,2),$4,:substr($3,2))')')define(F,`define(`A',G(:$1$1$1$1$1$1$1,:A`'A,:$1,:A))A')translit(patsubst(translit(include(../fd/0),(),BC),.+,`F(\&)'),BC,())