/-  *ring
|%
+$  ship-identity  [=ship =life]
+$  identity
  $%  [%ship ship-identity]
      [%ring =ring-group]
  ==
--