!:
::  /=main=/bin/type/hoon
::
|=  *
|=  ~
:-  ~  :-  ~
:-  ^-  (list slip)
    :~  [~ %$ %noun]
    ==
|=  [now=@da pax=path nut=note]
^-  bowl
:_  ~
?+    -.nut  !!
    %$
  ?~  p.nut
    ~
  %+  weld
    (turn q.u.p.nut |=(a=* [%la (sell p.u.p.nut a)]))
  `(list gift)`[[%la (skol p.u.p.nut)] ~]
==