Hoon ap
++ ap
~% %ap
+>
==
%etch etch
%hack hack
%open open
%rake rake
==
|_ gen=gene
++ bore
~| %bore
|- ^- tile
?- gen
[^ *] [$(gen p.gen) $(gen q.gen)]
[%clls *] $(gen open)
[%clfs *] $(gen open)
[%clcn *] $(gen open)
[%clcb *] $(gen open)
[%clhp *] $(gen open)
[%clkt *] $(gen open)
[%cltr *] $(gen open)
[%clsg *] $(gen open)
[%dtpt *] [%leaf +.gen]
[%dtsg *] [%leaf ?>(?=(@ q.gen) +.gen)]
[%bcbr *] [%bush $(gen p.gen) $(gen q.gen)]
[%bccb *] [%weed p.gen]
[%bccm *] [%weed gen]
[%bccn *] [%kelp burl(gen p.gen) (turn q.gen |=(a=gene burl(gen a)))]
[%bcpm *] [%reed $(gen p.gen) $(gen q.gen)]
[%bcts *] [%base +.gen]
[%bcwt *] [%fern $(gen p.gen) (turn q.gen |=(a=gene ^$(gen a)))]
[%ktts *] [%bark p.gen $(gen q.gen)]
[%zpcb *] $(gen q.gen)
* [%herb gen]
==
++ burl
^- line
=+ haq=hack
?> ?=([& *] haq)
=+ [oft=bore(gen p.haq) eft=bore(gen q.haq)]
~| %burl-head
?> ?=([%leaf *] oft)
[oft eft]
::
++ etch
~| %etch
|- ^- term
?: ?=([%ktts *] gen)
p.gen
=+ voq=~(open ap gen)
?<(=(gen voq) $(gen voq))
::
++ hack
|- ^- $%([& p=gene q=gene] [| p=gene])
?- gen
[^ *] [%& p.gen q.gen]
[%tsgr *]
?. ?=([~ *] p.gen)
[%| gen]
=+ pyr=$(gen q.gen)
?- -.pyr
| [%| [%tsgr p.gen p.pyr]]
& [%& [%tsgr p.gen p.pyr] [%tsgr p.gen q.pyr]]
==
::
[%zpcb *]
=+ pyr=$(gen q.gen)
?- -.pyr
| [%| [%zpcb p.gen p.pyr]]
& [%& [%zpcb p.gen p.pyr] [%zpcb p.gen q.pyr]]
==
::
*
=+ voq=~(open ap gen)
?: =(gen voq)
[%| gen]
$(gen voq)
==
::
++ jone
^- (list gene)
?: ?=([%clzp *] gen)
p.gen
?: ?=([%zpcb * [%clzp *]] gen)
p.q.gen
[gen ~]
::
++ open
^- gene
?- gen
[~ *] [%cnts [gen ~] ~]
[%bcbr *] ~(clam al bore)
[%bccb *] ~(clam al bore)
[%bccl *] [%bccm [%cltr p.gen]]
[%bccn *] ~(clam al bore)
[%bccm *] ~(clam al bore(gen p.gen))
[%bckt *] ~(clam al bore(gen p.gen))
[%bcpm *] ~(clam al bore)
[%bctr *] [%ktsg ~(bunt al bore(gen p.gen))]
[%bcts *] ~(bunt al bore)
[%bcwt *] ~(clam al bore)
[%brbr *] [%bccb [%brls p.gen ~(bunt al bore(gen q.gen))]]
[%brcb *] [%tsls [[%bctr p.gen] [%brcn q.gen]]]
[%brdt *] [%brcn (~(put by *(map term foot)) %$ [%ash p.gen])]
[%brkt *] [%tsgr [%brcn (~(put by q.gen) %$ [%ash p.gen])] [%cnbc %$]]
[%brls *] [%ktbr [%brts p.gen q.gen]]
[%brhp *] [%tsgr [%brdt p.gen] [%cnbc %$]]
[%brtr *] [%brcb p.gen (~(put by *(map term foot)) %$ [%elm q.gen])]
[%brts *] [%brcb p.gen (~(put by *(map term foot)) %$ [%ash q.gen])]
[%brwt *] [%ktwt %brdt p.gen]
[%clkt *] [p.gen q.gen r.gen s.gen]
[%clfs *] =+(zoy=[%dtsg %ta %$] [%clsg [zoy [%clsg [zoy p.gen] ~]] ~])
[%clls *] [p.gen q.gen r.gen]
[%clcb *] [q.gen p.gen]
[%clcn *] [[%clsg p.gen] [%bcts %null]]
[%clhp *] [p.gen q.gen]
[%clsg *]
|- ^- gene
?~ p.gen
[%dtsg %n ~]
=+ mow=jone(gen i.p.gen)
?: =(mow [i.p.gen ~])
[i.p.gen $(p.gen t.p.gen)]
$(p.gen (weld mow t.p.gen))
::
[%cltr *]
|- ^- gene
?~ p.gen
[%zpzp ~]
=+ mow=jone(gen i.p.gen)
?: =(mow [i.p.gen ~])
?~ t.p.gen
i.p.gen
[i.p.gen $(p.gen t.p.gen)]
$(p.gen (weld mow t.p.gen))
::
[%clzp *] open(gen [%clsg p.gen])
[%cnbc *] [%cnts [p.gen ~] ~]
[%cncb *] [%ktls [%cnhx p.gen] %cnts p.gen q.gen]
[%cncl *] [%cnsg [%$ ~] p.gen q.gen]
[%cndt *] [%cnhp q.gen [p.gen ~]]
[%cnkt *] [%cnhp p.gen q.gen r.gen s.gen ~]
[%cnls *] [%cnhp p.gen q.gen r.gen ~]
[%cnhp *]
?@(q.gen [%tsgr p.gen [%cnbc %$]] [%cncl p.gen [%cltr q.gen]])
::
[%cnhx *] [%cnts p.gen ~]
[%cnsg *] [%cntr p.gen q.gen [[[~ 6] r.gen] ~]]
[%cntr *]
:+ %tsls
q.gen
:+ %cnts
(weld p.gen `wing`[[~ 2] ~])
(turn r.gen |=([p=gene q=gene] [p [%ktdt [~ 10] [%tsgr [~ 3] q]]]))
::
[%hxgl *] [%cnhp [%cnbc %pave] [%zpgr [%cltr p.gen]] ~]
[%hxgr *] [%cnhp [%cnbc %sell] [%zpgr [%cltr p.gen]] ~]
::
[%kthp *] [%ktls ~(bunt al bore(gen p.gen)) q.gen]
[%sgbr *] [%sggr [%lose p.gen] q.gen]
[%sgcn *]
:+ %sggl
:- %fast
:- %clls
:+ [%dtsg %$ p.gen]
[%zpts q.gen]
:- %clsg
=+ nob=`(list gene)`~
|- ^- (list gene)
?@ r.gen
nob
[[[%dtsg %$ p.i.r.gen] [%zpts q.i.r.gen]] $(r.gen t.r.gen)]
s.gen
::
[%sgcl *] [%sggr [%bank %dtsg %$ p.gen] q.gen]
[%sgfs *] [%sgcn p.gen [~ 7] ~ q.gen]
[%sggl *] [%tsgl [%sggr p.gen [~ 1]] q.gen]
[%sgbc *] [%sggr [%live [%dtsg %$ p.gen]] q.gen]
[%sghx *] [%sggr [%ping [%dtsg %$ p.gen]] q.gen]
[%sgkt *]
[%sggr [%mean [%brdt [%cnhp [%cnbc %sell] [%zpgr p.gen] ~]]] q.gen]
::
[%sgls *] [%sggr [%memo %dtsg %$ p.gen] q.gen]
[%sgpm *]
:+ %sggr
[%slog [%dtpt %$ p.gen] [%cnhp [%cnbc %sell] [%zpgr q.gen] ~]]
r.gen
::
[%sgts *] [%sggr [%germ p.gen] q.gen]
[%sgzp *] [%sggr [%mean [%brdt p.gen]] q.gen]
[%smcl *]
?- q.gen
~ [%zpzp ~]
[* ~] i.q.gen
^
:+ %tsls
p.gen
=+ yex=`(list gene)`q.gen
|- ^- gene
?- yex
[* ~] [%tsgr [~ 3] i.yex]
[* ^] [%cnhp [~ 2] [%tsgr [~ 3] i.yex] $(yex t.yex) ~]
~ !!
==
==
::
[%smcb *] :: ;_
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a [%tsgr [%cnbc %v] p.gen]] :: =+ a==>(v {p.gen})
:^ %wtsg [%cnbc %a] :: ?~ a
[%zpzp ~] :: !!
:+ %tsgr :: =>
[[%cnbc %v] [%tsgl [~ 3] [%cnbc %a]]] :: [v +.a]
q.gen ::
::
[%smcm *] :: ;,
=+ nem=etch(gen p.gen) ::
|- ^- gene ::
?~ q.gen ::
[%tsgl [%cnbc nem] p.gen] :: =< [{nem} {p.gen}]
:+ %tsls [%ktts %a i.q.gen] :: =+ a={i.q.gen}
:^ %wtkt [%cnbc %a] :: ?^ a
[%tsgl [%cnbc nem] [%cnbc %a]] :: =< [{nem} a]
$(q.gen t.q.gen) ::
::
[%smcn *] :: ;%
|- ^- gene ::
?~ p.gen ::
[%bcts %null] :: ~
:+ %tsls [%ktts %a i.p.gen] :: =+ a={i.p.gen}
:^ %wtkt [%cnbc %a] :: ?^ a
[%cnbc %a] :: a
$(p.gen t.p.gen) ::
::
[%smdq *] :: ;"
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:- %brhp :: |-
:+ %ktls :: ^+
:- %brhp :: |-
:^ %wtcl :: ?:
[%bcts %bean] :: ?
[%bcts %null] :: ~
:- [%ktts %i [%dtpt 'tD' @]] :: :- i=~~
[%ktts %t [%cnbc %$]] :: t=$
|- ^- gene ::
?~ p.gen ::
[%bcts %null] :: ~
=+ res=$(p.gen t.p.gen) ::
^- gene ::
?@ i.p.gen ::
[[%dtpt 'tD' i.p.gen] res] :: [~~{i.p.gen} {res}]
:+ %tsls ::
:- :+ %ktts :: ^=
%a :: a
:+ %ktls :: ^+
[%cnbc %$] :: $
[%tsgr [%cnbc %v] p.i.p.gen] :: =>(v {p.i.p.gen})
[%ktts %b res] :: b={res}
^- gene ::
:- %brhp :: |-
:^ %wtpt :: ?@
[%cnbc %a] :: a
[%cnbc %b] :: b
:- [%tsgl [~ 2] [%cnbc %a]] :: :- -.a
:+ %cnts :: %=
[%$ ~] :: $
[[[%cnbc %a] [%tsgl [~ 3] [%cnbc %a]]] ~] :: a +.a
::
[%smdt *] :: ;.
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a [%tsgr [%cnbc %v] p.gen]] :: =+ a==>(v {p.gen})
|- ^- gene ::
?~ q.gen ::
[%cnbc %a] :: a
:^ %wtsg [%cnbc %a] :: ?~ a
[%bcts %null] :: ~
:+ %tsgr :: =>
:+ %cnts [[~ 1] ~] :: %= .
:~ :- [%cnbc %a] :: a
:+ %tsgr :: =>
[[%cnbc %v] [%tsgl [~ 3] [%cnbc %a]]] :: [v +.a]
i.q.gen ::
== :: ==
$(q.gen t.q.gen) ::
::
[%smhx *] :: ;#
=+ cah=*(list ,@) ::
=+ ^= cda ::
|= a=(list ,@) ::
:- :- [%dtpt %ta %$] ::
:- :- [%dtpt %ta %$] ::
[%smdq a] ::
[%bcts %null] ::
[%bcts %null] ::
|- ^- gene ::
?~ p.gen ::
?~ cah ::
[%bcts %null] ::
[(cda (flop cah)) [%bcts %null]] ::
?@ i.p.gen ::
$(p.gen t.p.gen, cah [i.p.gen cah]) ::
?~ cah ::
[p.i.p.gen $(p.gen t.p.gen)] ::
:+ (cda (flop cah)) ::
p.i.p.gen ::
$(p.gen t.p.gen, cah ~) ::
::
[%smpm *] :: ;&
?~ q.gen ::
[%bcts %null] ::
?: =(~ t.q.gen) ::
i.q.gen ::
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a [%tsgr [%cnbc %v] i.q.gen]] :: =+ a==>(v {iqgen})
:+ %tsgr [%ktts %w ~ 1] :: => w=.
|- ^- gene ::
?~ t.q.gen ::
[%cnbc %a] :: a
:+ %tsls :+ %ktts %b :: =+ ^= b
[%tsgr [%cnhx %v %w ~] i.t.q.gen] :: => v.w
:+ %tsgr :: {i.t.q.gen}
:+ %cnts [%w ~] :: =>
:~ :- [%cnbc %a] :: %= w
:^ %wtsg [%cnbc %a] :: a
[%cnbc %b] :: ?~ a b
:^ %wtsg [%cnbc %b] :: ?~ b
[%cnbc %a] :: a
:+ %tsgr :: =>
:- [%cnbc %v] :: :- v
:- [%tsgl [~ 3] [%cnbc %a]] :: :- +.a
[%tsgl [~ 3] [%cnbc %b]] :: +.b
i.t.q.gen :: {i.t.t.q.gen}
== :: ==
$(t.q.gen t.t.q.gen) ::
::
[%smgl *] :: ;<
=+ nem=etch(gen p.gen) ::
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] r.gen] :: =+ a==>(v {r.gen})
:+ %tsls [%tsgr [%cnbc %v] p.gen] :: =+ =>(v {p.gen})
:- %brhp :+ %ktls [%cnbc nem] :: |- ^- {nem}
:+ %tsls :: =+ ^= b
[%ktts %b %tsgl [%cnbc %$] [%cnbc %a]] :: $:a
:^ %wtsg [%cnbc %b] :: ?~ b
[%cnbc nem] :: {nem}
:+ %tsgr :: => :- :- v
:- :- [%cnbc %v] :: ^= {nem}
:+ %ktts nem :: $(a +.b)
:+ %cnts [%$ ~] :: -.b
:~ [[%cnbc %a] [%tsgl [~ 3] [%cnbc %b]]] ::
== ::
[%tsgl [~ 2] [%cnbc %b]] ::
q.gen ::
::
[%smgr *] :: ;>
=+ nem=etch(gen p.gen) ::
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] r.gen] :: =+ a==>(v {r.gen})
:+ %tsls [%tsgr [%cnbc %v] p.gen] :: =+ =>(v {p.gen})
:- %brhp :+ %ktls [%cnbc nem] :: |- ^- {nem}
:+ %tsls :: =+ ^= b
[%ktts %b %tsgl [%cnbc %$] [%cnbc %a]] :: $:a
:^ %wtsg [%cnbc %b] :: ?~ b
[%cnbc nem] :: {nem}
:+ %cnts [%$ ~] :: %= $
:~ [[%cnbc %a] [%tsgl [~ 3] [%cnbc %b]]] :: a +.b
:- [%cnbc nem] :: {nem}
:+ %tsgr :: => :-
:- [[%cnbc %v] [%ktts nem [%cnbc nem]]] :: [v {nem}]
[%tsgl [~ 2] [%cnbc %b]] :: -.b
q.gen :: \q.gen
== :: ==
::
[%smhp *] [%smls [%wtzp p.gen] q.gen] ::
[%smkt *] :: ;^
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a [%tsgr [%cnbc %v] p.gen]] :: =+ a==>(v {p.gen})
:^ %wtsg [%cnbc %a] :: ?~ a
[%bcts %null] :: ~
:+ %ktdt [%cnbc %a] :: ^. a
:- [%bcts %null] :: :- ~
:+ %tsgr :: =>
[[%cnbc %v] [%tsgl [~ 3] [%cnbc %a]]] :: [v +.a]
q.gen :: \q.gen
::
[%smls *] :: ;+
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] q.gen] :: =+ a==>(v {q.gen})
:- %brwt :: |?
:+ %tsls :: =+ ^= b
[%ktts %b %tsgl [%cnbc %$] [%cnbc %a]] :: $:a
:+ %ktls [%cnbc %b] :: ^+ b
:^ %wtsg [%cnbc %b] :: ?~ b
[%bcts %null] :: ~
:^ %wtcl :: ?:
:+ %tsgr :: =>
[[%cnbc %v] [%tsgl [~ 2] [%cnbc %b]]] :: [v -.b]
p.gen :: \p.gen
:+ %ktdt [%cnbc %b] :: ^. b
:- [%tsgl [~ 2] [%cnbc %b]] :: :- -.b
:+ %cnts [[~ 1] %$ ~] :: %= ..$
:~ [[%cnbc %a] [%tsgl [~ 3] [%cnbc %b]]] :: a +.b
== :: ==
:+ %cnts [%$ ~] :: %= $
:~ [[%cnbc %a] [%tsgl [~ 3] [%cnbc %b]]] :: a +.b
== :: ==
::
[%smsg *] :: ;~
|- ^- gene
?- q.gen
~ ~|(%open-smsg !!)
^
:+ %tsgr [%ktts %v ~ 1] :: => v=.
|- ^- gene ::
?: ?=(~ t.q.gen) ::
[%tsgr [%cnbc %v] i.q.gen] :: =>(v {i.q.gen})
:+ %tsls [%ktts %a $(q.gen t.q.gen)] :: =+ ^= a
:+ %tsls :: {$(q.gen t.q.gen)}
[%ktts %b [%tsgr [%cnbc %v] i.q.gen]] :: =+ ^= b
:+ %tsls :: =>(v {i.q.gen})
[%ktts %c [%tsgl [~ 6] [%cnbc %b]]] :: =+ c=+6.b
:- %brdt :: |.
:^ %cnls :: %+
[%tsgr [%cnbc %v] p.gen] :: =>(v {p.gen})
[%cnhp [%cnbc %b] [%cnbc %c] ~] :: (b c)
[%cnts [%a ~] [[[~ 6] [%cnbc %c]] ~]] :: a(+6 c)
==
::
[%smsm *] :: ;;
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a [%tsgr [%cnbc %v] p.gen]] :: =+ a==>(v {p.gen})
:+ %tsls [%ktts %b [%tsgr [%cnbc %v] q.gen]] :: =+ b==>(v {q.gen})
:+ %tsls :: =+ c=(a b)
[%ktts %c [%cnhp [%cnbc %a] [%cnbc %b] ~]] ::
[%wtgr [%dtts [%cnbc %c] [%cnbc %b]] [%cnbc %c]] :: ?>(=(c b) c)
::
[%smtr *] :: ;*
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] q.gen] :: =+ a==>(v \q.gen)
:- %brhp :+ %kthp [%bcts %bean] :: |- ^- ?
:+ %tsls :: =+ ^= b
[%ktts %b %tsgl [%cnbc %$] [%cnbc %a]] :: $:a
:^ %wtsg [%cnbc %b] :: ?~ b
[%dtpt %f &] :: &
:~ %wtpm :: ?&
:+ %tsgr :: =>
[[%cnbc %v] [%tsgl [~ 2] [%cnbc %b]]] :: [v -.b]
p.gen :: \p.gen
:+ %cnts [%$ ~] :: %= $
:~ [[%cnbc %a] [%tsgl [~ 3] [%cnbc %b]]] :: a +.b
== :: ==
== :: ==
:: ::
[%smts *] :: ;=
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] q.gen] :: =+ a==>(v {q.gen})
:- %brwt :: |?
:+ %tsls :: =+ ^= b
[%ktts %b %tsgl [%cnbc %$] [%cnbc %a]] :: $:a
:^ %wtsg [%cnbc %b] :: ?~ b
[%bcts %null] :: ~
:+ %ktdt [%cnbc %b] :: ^. b
:- :+ %tsgr :: => :- v
[[%cnbc %v] [%tsgl [~ 2] [%cnbc %b]]] :: -.b
p.gen :: \p.gen
:+ %cnts [[~ 1] %$ ~] :: %= ..$
:~ [[%cnbc %a] [%tsgl [~ 3] [%cnbc %b]]] :: a +.b
== :: ==
:: ::
[%smwt *] :: ;?
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] q.gen] :: =+ a==>(v \q.gen)
:- %brhp :+ %kthp [%bcts %bean] :: |- ^- ?
:+ %tsls :: =+ ^= b
[%ktts %b %tsgl [%cnbc %$] [%cnbc %a]] :: $:a
:^ %wtsg [%cnbc %b] :: ?~ b
[%dtpt %f |] :: |
:~ %wtbr :: ?|
:+ %tsgr :: =>
[[%cnbc %v] [%tsgl [~ 2] [%cnbc %b]]] :: [v -.b]
p.gen :: \p.gen
:+ %cnts [%$ ~] :: %= $
:~ [[%cnbc %a] [%tsgl [~ 3] [%cnbc %b]]] :: a +.b
== :: ==
== :: ==
::
[%tsbr *]
[%tsls ~(bunt al bore(gen p.gen)) q.gen]
::
[%tscl *]
[%tsgr [%cncb [[~ 1] ~] p.gen] q.gen]
::
[%tsdt *]
[%tsgr [%cncb [[~ 1] ~] [[p.gen q.gen] ~]] r.gen]
::
[%tskt *] :: =^
=+ cog=rusk(gen p.gen) ::
=+ wuy=`gene`[%cnhx (weld rake(gen q.gen) `wing`[%v ~])] ::
:+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] r.gen] :: =+ a==>(v \r.gen)
:^ %tsdt wuy [%tsgl [~ 3] [%cnbc %a]] :: =. \wuy +.a
:+ %tsgr :- :+ %ktts cog :: => :- ^= \cog
[%tsgl [~ 2] [%cnbc %a]] :: -.a
[%cnbc %v] :: v
s.gen :: s.gen
::
[%tsgl *] [%tsgr q.gen p.gen]
[%tsls *] [%tsgr [p.gen [~ 1]] q.gen]
[%tshp *] [%tsls q.gen p.gen]
[%tssg *]
|- ^- gene
?~ p.gen [%zpzp ~]
?~ t.p.gen i.p.gen
[%tsgr i.p.gen $(p.gen t.p.gen)]
[%wtbr *]
|-
?@(p.gen [%dtsg %f 1] [%wtcl i.p.gen [%dtsg %f 0] $(p.gen t.p.gen)])
::
[%wtdt *] [%wtcl p.gen r.gen q.gen]
[%wtgl *] [%wtcl p.gen [%zpzp ~] q.gen]
[%wtgr *] [%wtcl p.gen q.gen [%zpzp ~]]
[%wtkt *] [%wtcl [%wtcn [%dtpt %$ 0] p.gen] r.gen q.gen]
[%wtts *] [%wtcn ~(bunt al bore(gen p.gen)) q.gen]
[%wthp *]
|-
?@ q.gen
[%zpfs p.gen]
:^ %wtcl
[%wtts p.i.q.gen p.gen]
q.i.q.gen
$(q.gen t.q.gen)
::
[%wtls *] [%wthp p.gen (weld r.gen `_r.gen`[[[%bcts %noun] q.gen] ~])]
[%wtpm *]
|-
?@(p.gen [%dtsg %f 0] [%wtcl i.p.gen $(p.gen t.p.gen) [%dtsg %f 1]])
::
[%wtpt *] [%wtcl [%wtcn [%dtpt %$ 0] p.gen] q.gen r.gen]
[%wtsg *] [%wtcl [%wtts [%bcts %null] p.gen] q.gen r.gen]
[%wtzp *] [%wtcl p.gen [%dtsg %f 1] [%dtsg %f 0]]
[%zpcb *] q.gen
[%zpgr *] [%zpsm [%bctr [%cnbc %type]] p.gen]
* gen
==
::
++ rake
^- wing
?- gen
[~ *] [gen ~]
[%cnbc *] [p.gen ~]
[%cnhx *] p.gen
[%cnts * ~] p.gen
[%zpcb *] rake(gen q.gen)
* ~|(%rake-gene !!)
==
++ rusk
^- term
=+ wig=rake
?. ?=([@ ~] wig)
~|(%rusk-gene !!)
i.wig
--
Parts of this document are generated automatically. Edits within the comments section will be preserved.