!:
::  /=main=/fun/reboot/hoon
::
=>  .(- `[who=@p how=path]`-)
|=  [est=time eny=@uw]
|=  arg=*
=+  ^=  lok  ^-  case
    ?:  =(~ arg)  [%da est]
    ?>  =(~ +.arg)
    ((hard case) -.arg)
=+  pre=`path`[(scot %p who) %arvo ~(rent co %$ (dime lok)) ~]
=+  ^=  vay  ^-  (list ,[p=@tas q=@tas])
    :~  [%$ %zuse]
        [%a %ames]
        [%b %batz]
        [%c %clay]
        [%d %dill]
        [%e %eyre]
    ==
:_  ~
%+  turn  vay
|=  [saw=@tas nam=@tas]
=+  pax=(weld pre `path`[nam ~])
=+  txt=.^(%cx (weld pax `path`[%hoon ~]))
[%xx [%veer saw pax txt]]