Endo experiment.
++ mota %+ cook
|=({a/tape b/tape} (rap 3 (weld a b)))
;~(plug (star low) (star hig))
+ ++ endo (ifix [;~(plug ace ace) (just `@`10)] (star prn))
::
++ plex
|= gen/twig ^- (unit path)
==
==
++ sump (ifix [kel ker] (stag %conp (most ace wide)))
+ ++ nora
+ |= tol/?
+ ?. tol (norm |)
+ ;~ sfix
+ (norm &)
+ (punt ;~(pfix ;~(plug (star ace) hax) endo))
+ ==
++ norm :: rune regular form
|= tol/?
=< %- stew
|=({a/term b/(unit twig)} ?~(b a [a u.b]))
;~(plug sym (punt ;~(pfix fas wide)))
++ tall %+ knee *twig :: full tall form
- |.(~+((wart ;~(pose (norm &) long lute ape:(sail &)))))
+ |.(~+((wart ;~(pose (nora &) long lute ape:(sail &)))))
++ wide %+ knee *twig :: full wide form
|.(~+((wart ;~(pose (norm |) long ape:(sail |)))))
++ wart
