/-  aquarium
=,  aquarium
:-  %say
|=  [[now=@da eny=@uvJ bec=beak] [label=@ta] ships=(list ship)]
:-  %aqua-events
=?  ships  ?=(~ ships)
  .^((list ship) %gx /(scot %p p.bec)/aqua/(scot %da now)/ships/noun)
[%snap-ships label ships]~