mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
21 lines
305 B
Plaintext
21 lines
305 B
Plaintext
|
!:
|
||
|
:: /=main=/bin/type/hoon
|
||
|
::
|
||
|
|= *
|
||
|
|= ~
|
||
|
:- ~ :- ~
|
||
|
:- ^- (list slip)
|
||
|
:~ [~ %$ %noun]
|
||
|
==
|
||
|
|= [now=@da pax=path nut=note]
|
||
|
^- bowl
|
||
|
:_ ~
|
||
|
?+ -.nut !!
|
||
|
%$
|
||
|
?~ p.nut
|
||
|
~
|
||
|
%+ weld
|
||
|
(turn q.u.p.nut |=(a=* [%la (sell p.u.p.nut a)]))
|
||
|
`(list gift)`[[%la (skol p.u.p.nut)] ~]
|
||
|
==
|