@@ -1117,25 +1117,18 @@ A rule.
11171117#### Source
11181118
11191119```
1120− ++ stun :: parse several times
1121− |* {lig/{@ @} fel/rule}
1120+ ++ stir
1121+ ~/ %stir
1122+ |* {rud/* raq/_=>(~ |*({a/* b/*} [a b])) fel/rule}
1123+ ~/ %fun
11221124 |= tub/nail
1123− ^- (like (list _(wonk (fel))))
1124− ?: =(0 +.lig)
1125− [p.tub [~ ~ tub]]
1125+ ^- (like _rud)
11261126 =+ vex=(fel tub)
11271127 ?~ q.vex
1128− ?: =(0 -.lig)
1129− [p.vex [~ ~ tub]]
1130− vex
1131− =+ ^= wag %= $
1132− -.lig ?:(=(0 -.lig) 0 (dec -.lig))
1133− +.lig ?:(=(0 +.lig) 0 (dec +.lig))
1134− tub q.u.q.vex
1135− ==
1136− ?~ q.wag
1137− wag
1138− [p.wag [~ [p.u.q.vex p.u.q.wag] q.u.q.wag]]
1128+ [p.vex [~ rud tub]]
1129+ =+ wag=$(tub q.u.q.vex)
1130+ ?> ?=(^ q.wag)
1131+ [(last p.vex p.wag) [~ (raq p.u.q.vex p.u.q.wag) q.u.q.wag]]
11391132```
11401133
11411134#### Examples