1 eval(translit(_(include(I)),define(C,`eval(($1+$2)*17%256)')
2 define(B,`A(index(abcdefghijklmnopqrstuvwxyz,$1),$1)')
3 define(A,`ifelse($2,=,61,$2,-,45,$1,-1,$2+48,$1+97)')
4 define(H,`ifelse($2,,$1,`H(C($1,B(substr($2,0,1))),substr(
5 $2,1))')')define(_,`+H(,$1)ifelse($2,,,`_(shift($@))')')))
