::  pals: manual neighboring
::
|%
+$  records  ::  local state
  $:  outgoing=(jug ship @ta)
      incoming=(set ship)
    ::
      ::  receipts: for all outgoing, status
      ::
      ::    if ship not in receipts,  poke awaiting ack
      ::    if ship present as true,  poke acked positively
      ::    if ship present as false, poke acked negatively
      ::
      receipts=(map ship ?)
  ==
::
+$  gesture  ::  to/from others
  $%  [%hey ~]
      [%bye ~]
  ==
::
+$  command  ::  from ourselves
  $%  [%meet =ship in=(set @ta)]  ::  empty set allowed
      [%part =ship in=(set @ta)]  ::  empty set implies un-targeting
  ==
::
+$  effect  ::  to ourselves
  $%  target-effect
      leeche-effect
  ==
::
+$  target-effect
  $%  [%meet =ship]  ::  hey to target
      [%part =ship]  ::  bye to target
  ==
::
+$  leeche-effect
  $%  [%near =ship]  ::  hey from leeche
      [%away =ship]  ::  bye from leeche
  ==
--