/-  h=hood
:-  %say
|=  [[now=@da eny=@uvJ bec=beak] ~ ~]
:-  %tang
^-  tang
=+  .^  hop=jump:h
      %gx
      (scot %p p.bec)
      %hood
      (scot %da now)
      /kiln/jumps/noun
    ==
?>  ?=(%all -.hop)
%+  turn  ~(tap by all.hop)
|=  [old=dock new=dock]
leaf+"{<p.old>}/{(trip q.old)} -> {<p.new>}/{(trip q.new)}"