1 define(E,defn(define))E(o,a(e(y($1,0),y($1))))E(y,`substr($*,eval(len($1)/
2 2))')E(a,`+index(..bcd.fgh.jklmn.pqrst.vwx.z.BCD.FGH.JKLMN.PQRST.VWX.Z,substr(
3 $1,0,1))')E(u,`ifelse($1,,`) eval(',`o($1)o($2)o($3)u(shift(shift(shift($@))))a(
4 e(e($1,$2),$3))')')eval(u(translit(include(i),E(e,`translit($1A,$2A-z,$2_)')