Function Relate

Part of:

package submarine
( relate < object1 > < object2 > &key < relation > (weight 1) )
Make OBJECT1 and OBJECT2 enter into the many-to-many relation
`RELATION'. If `RELATION' is not provided, the unnamed relation is
assumed.