!:
::  /=main=/bin/set/hoon
::
|=  *
|=  [nam=@tas ~]
=+  ^=  rod  ^-  (list slip)
    :~  [~ %$ %noun]
    ==
:-  ~  :-  ~
:-  rod
|=  [now=@da pax=path nut=note]
^-  bowl
?>  ?=(%$ -.nut)
?~  p.nut
  :_  ~
  :~  [%va nam ~]
  ==
?~  q.u.p.nut
  [~ ~ rod ..$]
:_  ~
:~  [%va nam ~ p.u.p.nut -.q.u.p.nut]
==