urbit/main/bin/cat.hoon
2013-09-28 13:21:18 -07:00

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)]