2013-09-29 00:21:18 +04:00
|
|
|
!:
|
|
|
|
|
:: /=main=/fun/reset/hoon
|
|
|
|
|
::
|
|
|
|
|
=> .(-< `who=@p`-<)
|
|
|
|
|
|= [est=time *]
|
|
|
|
|
|= arg=*
|
|
|
|
|
=+ ^= lok ^- case
|
|
|
|
|
?: =(~ arg) [%da est]
|
|
|
|
|
?> =(~ +.arg)
|
|
|
|
|
((hard case) -.arg)
|
|
|
|
|
=+ cav=(scot (dime lok))
|
|
|
|
|
=+ top=`path`[(scot %p who) %arvo cav ~]
|
|
|
|
|
=+ pax=`path`(weld top `path`[%hoon ~])
|
|
|
|
|
:_ ~
|
2014-01-06 03:39:30 +04:00
|
|
|
:- [%xx %vega pax]
|
2013-09-29 00:21:18 +04:00
|
|
|
^- (list gift)
|
|
|
|
|
=+ ^= vay ^- (list ,[p=@tas q=@tas])
|
|
|
|
|
:~ [%$ %zuse]
|
|
|
|
|
[%a %ames]
|
|
|
|
|
[%b %batz]
|
|
|
|
|
[%c %clay]
|
|
|
|
|
[%d %dill]
|
|
|
|
|
[%e %eyre]
|
2014-05-31 02:04:20 +04:00
|
|
|
[%f %ford]
|
|
|
|
|
[%g %gall]
|
2013-09-29 00:21:18 +04:00
|
|
|
==
|
|
|
|
|
%+ turn vay
|
|
|
|
|
|= [a=@tas b=@tas]
|
|
|
|
|
=+ pax=(weld top `path`[b ~])
|
|
|
|
|
=+ txt=((hard ,@) .^(%cx (weld pax `path`[%hoon ~])))
|
|
|
|
|
`gift`[%xx %veer a pax txt]
|
