2015-05-12 03:31:37 +03:00
|
|
|
::
|
2015-09-12 00:15:25 +03:00
|
|
|
:::: /hoon/merge/hood/gen
|
2015-05-12 03:31:37 +03:00
|
|
|
::
|
|
|
|
|
/? 314
|
2015-07-31 01:32:06 +03:00
|
|
|
!:
|
|
|
|
|
|%
|
|
|
|
|
++ beaky ,[span span span ~]
|
|
|
|
|
++ sorc ?([bek=beaky ~] [her=@p sud=@tas ~])
|
|
|
|
|
--
|
2015-05-12 03:31:37 +03:00
|
|
|
::
|
|
|
|
|
::::
|
|
|
|
|
!:
|
2015-09-12 00:15:25 +03:00
|
|
|
:- %cat
|
2015-07-31 01:32:06 +03:00
|
|
|
|= $: [now=@da eny=@uvI bek=beak]
|
2015-09-02 22:03:44 +03:00
|
|
|
[arg=[?(sorc [syd=$|(desk beaky) sorc])] gem=?(%auto germ)]
|
2015-05-12 03:31:37 +03:00
|
|
|
==
|
2015-07-31 01:32:06 +03:00
|
|
|
=* our p.bek
|
|
|
|
|
|^ :- %kiln-merge
|
2015-09-02 22:03:44 +03:00
|
|
|
^- [syd=desk her=ship sud=desk gem=?(%auto germ)]
|
2015-07-31 01:32:06 +03:00
|
|
|
?- arg
|
|
|
|
|
[@ @ ~] =+(arg [sud ?.(=(our her) her (sein her)) sud gem])
|
|
|
|
|
[^ ~] =+((pars bek.arg) [dez ?.(=(our who) who (sein who)) dez gem])
|
|
|
|
|
[* @ @ ~] [(pars-src syd.arg) =+(arg [her sud gem])]
|
|
|
|
|
[* ^ ~] [(pars-src syd.arg) =+((pars bek.arg) [who dez gem])]
|
|
|
|
|
==
|
|
|
|
|
++ pars |=(a=beaky =+((need (tome a)) `[who=ship dez=desk]`[p q]))
|
|
|
|
|
++ pars-src
|
|
|
|
|
|= syd=$|(desk beaky)
|
|
|
|
|
?@ syd syd
|
|
|
|
|
=+ (pars syd)
|
|
|
|
|
~| [%into-foreign who `path`syd]
|
|
|
|
|
?>(=(our who) dez)
|
|
|
|
|
--
|
