Like last commit but actually works.
{$kelp *}
%- hail
=. wat ~
+ :+ %ktls
|- ^- hoon
?~ t.p.sec
^$(sec i.p.sec)
[%wtcl [%bust %bean] $(p.sec t.p.sec) ^$(sec i.p.sec)]
+ %= $
+ sec
+ |- ^- tile
+ ?~(t.p.sec i.p.sec $(i.p.sec i.t.p.sec, t.p.sec t.t.p.sec))
+ ==
::
{$leaf *}
(hail [%rock p.sec q.sec])
scab
(cold [%base %cell] ket)
==
- :- ['a' 'z']
- ;~ pose
- (stag %bcts ;~(plug sym ;~(pfix ;~(pose fas tis) wyde)))
- scab
- ==
:- '='
;~ pfix tis
%+ sear
%+ bind
|- ^- (unit term)
?+ hon ~
+ {$bcsm *} $(hon p.hon)
{$wing *} ?~(p.hon ~ ?^(i.p.hon ~ `i.p.hon))
{$limb *} `p.hon
{$dbug *} $(hon ~(open ap hon))
|=(term [%bcts +< hon])
wyde
==
+ :- ['a' 'z']
+ ;~ pose
+ (stag %bcts ;~(plug sym ;~(pfix ;~(pose fas tis) wyde)))
+ scab
+ ==
==
::
++ scat !:
