2022/day25.golfm4

   1 translit(translit(_(include(i)),--=define(_,`ifelse($2,,$1,`_(a($1,$2),
   2 shift(shift($@)))')')define(A,a($1,$2,$4($3/5-1))$4($3%5+3))define(a,
   3 `ifelse($1$2$3,0,,$1,,`a(5$@)',$2,,`a(,$1,$3)',`A(l($1,0),l($2,0),
   4 ($3+l($1)+l($2)-3),eval)')')define(l,`substr($*,decr(len($1)))')
   5 ,43-A3`,'),43-7,-=/-2)