2022/day14.golfm4

   1 define(d,defn(define))d(I,defn(incr))d(e,defn(ifelse))d(E,$*)d(t,
   2 `eval($1+($2>$1)-($1>$2))')d(y,0)d(b,`d($1.$2)e(eval($2<y),0,`d(`y',I(
   3 $2))')')translit(_(include(i)),d(_,`e($1,,`E(E',$3,->,`b($@)e($1.$2,$4.$5,`_(
   4 shift',`_(t($1,$4),t($2,$5),E')',`_(E')(shift(shift($@))))')d(o,0)
   5  ,`,,')d(c,`ifdef($1.$2,,`f($1,I($2))')')d(C,`o d(`C')')d(f,`e($2,y,`C()')e($2,
   6 I(y),,`c($@)c(decr($1),$2)c(I($1),$2)')d($1.decr($2))d(`o',I(o))')f(500,1)o