shrub/main/bin/ye.hoon
2013-09-28 13:21:18 -07:00

24 lines
434 B
Plaintext

!:
:: /=main=/toy/ye/hoon
::
=> .(-< `who=@p`-<)
|= *
|= [ebb=$|(~ [tex=tape ~])]
=+ bud=(sein who)
^- bowl
:- ~
:- ~
:- ^- (list slip)
:~ [/foo/bar [%yo bud %ye ?~(ebb '' (rap 3 tex.ebb))]]
==
|= [now=@da pax=path nut=note]
?> =(/foo/bar pax)
?> ?=(%yo -.nut)
:- ?: =(%good q.nut)
~
:_ ~
:- %ha
:- %leaf
"hi: {<p.nut>}.{<p.p.r.nut>} spurned {<q.r.nut>}/{<q.p.r.nut>}/{<r.r.nut>}"
~