2022/day07.golfm4

   1 define(D,defn(pushdef))D(A,a(a(a(a($@)))))D(u,o($1($3+($2-$3)*($2<$3&$2+
   2 40000001>y)),$1($4+($2)*($2<100000))))D(o,$2 $1)D(_,`ifelse($3$2,,$1,$3,,`_($1,
   3 $2,$,,..)',$3$5,$..,`D(`o',`popdef(`o')u(eval,$1,$'@`)')+$1,a$2,a(A($@)))',$3,
   4 $,`_($1_(0,(,$2),A(A(,$@)))',$3,dir,`_($1,$2,A($@))',`_($1+$3,$2,A($@))')')D(
   5 y,_(,,translit(include(i),D(a,defn(shift))
   6  ,`,,')))o(y)