sub marry
{
  my ($husband, $wife) = @_;
  $husband->set_spouse($wife);
  $wife->set_spouse($husband);
  $wife->parent[0]->pay_for_party;
}