mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
17 lines
266 B
Plaintext
17 lines
266 B
Plaintext
!:
|
|
:: /=main=/toy/cat/hoon
|
|
::
|
|
|= *
|
|
|= ape=(list path)
|
|
:_ ~
|
|
:_ ~
|
|
^- gift
|
|
:+ %mu [%atom %t]
|
|
=- |- ^- (list ,@t)
|
|
?~(foz ~ (weld i.foz $(foz t.foz)))
|
|
^= foz
|
|
=| foz=(list (list ,@t))
|
|
|- ^+ foz
|
|
?~ ape ~
|
|
[(lore ((hard ,@) .^(%cx i.ape))) $(ape t.ape)]
|