shrub/main/bin/cat.hoon

!:
::  /=main=/toy/cat/hoon
::
|=  *
|=  ape=(list path)
:_  ~
:_  ~
^-  gift
:-  %te
=-  |-  ^-  (list ,@t)
    ?~(foz ~ (weld i.foz $(foz t.foz)))
^=  foz
=|  foz=(list (list ,@t))
|-  ^+  foz
?~  ape  ~
[(lore ((hard ,@) .^(%cx i.ape))) $(ape t.ape)]
Cleaning up old code 2013-09-29 00:21:18 +04:00			`!:`
			`:: /=main=/toy/cat/hoon`
			`::`
			`\|= *`
			`\|= ape=(list path)`
			`:_ ~`
			`:_ ~`
			`^- gift`
improve :cat 2014-05-15 19:57:06 +04:00			`:- %te`
Cleaning up old code 2013-09-29 00:21:18 +04:00			`=- \|- ^- (list ,@t)`
			`?~(foz ~ (weld i.foz $(foz t.foz)))`
			`^= foz`
			`=\| foz=(list (list ,@t))`
			`\|- ^+ foz`
			`?~ ape ~`
			`[(lore ((hard ,@) .^(%cx i.ape))) $(ape t.ape)]`