Add node::port_number(node*)

The general idea here is that we want to provide a port mapping
between a pair of nodes.  This simply produces a unique number for
each neighbor of a node.;