mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-14 17:41:33 +03:00
23 lines
308 B
Plaintext
23 lines
308 B
Plaintext
!:
|
|
:: /=main=/bin/set/hoon
|
|
::
|
|
|= *
|
|
|= [nam=@tas ~]
|
|
=+ ^= rod ^- (list slip)
|
|
:~ [~ %$ %noun]
|
|
==
|
|
:- ~ :- ~
|
|
:- rod
|
|
|= [now=@da pax=path nut=note]
|
|
^- bowl
|
|
?> ?=(%$ -.nut)
|
|
?~ p.nut
|
|
:_ ~
|
|
:~ [%va nam ~]
|
|
==
|
|
?~ q.u.p.nut
|
|
[~ ~ rod ..$]
|
|
:_ ~
|
|
:~ [%va nam ~ p.u.p.nut -.q.u.p.nut]
|
|
==
|