2022/day05.golfm4

   1 define(t,defn(pushdef))t(y,defn(ifelse))t(p,`translit($1l,eftl-r,(,,))')t(u,`y(
   2 $2,n,,`t(`r$1',$2)t(`w$1',$2)')')t(s,`popdef(`p')t(`s',y)_')t(`p',`t(`s',`z(1,
   3 `u(',`,substr($1,eval',`*4-3),1)')popdef(`s')s()')')t(_,`y($1,,`s()',`p($1)_')(
   4 shift($@))')_(translit(include(i),t(v,x($*,r)x($1,$2,0,w)x($1,0,$3,w))t(
   5 x,`y(eval($1),0,,`t(`$4$3',$4$2)popdef(`$4$2')x(~-$*)')')
   6  ,`,n't(z,`$2$1$3($1$4)`'y($1,9,,`z(incr($1),shift($@))')')))z(1,r) z(1,w)