anchor.diff:  
     // interface wiring
   
  -   interface PipeIn in = toPipeIn(fifofromhost);
  -   interface PipeOut out = toPipeOut(fifotohost);
  +   interface PipeIn hosttonode = toPipeIn(fifofromhost);
  +   interface PipeOut nodetohost = toPipeOut(fifotohost);
  +   interface Vector linkupin = map(selectinput, rxup)
  +   interface Vector linkupout = map(selectoutput, txup);
  +   interface Vector linkdownin = map(selectinput, rxdown)
  +   interface Vector linkdownout = map(selectoutput, txdown);
   
   endmodule
   
  
positive.code:    Bit#(32) payload;
     } DataMessage deriving(Bits);
  
  function Action move(PipeOut#(DataMessage) from, PipeIn#(DataMessage) to);
     return action
  	     $display("move %x", from.first);
  
negative.code:    
     xp[radix - 1][radix - 1] < mkSizedFIFOF(4);
     
     // create distributors
     
     for (Bit#(4) x = 0; x < radix; x = x + 1)
        mkdistributor(id, linkin[x], map(toPipeOut, xp[x]));
  
     // create arbiters
     for (Bit#(4) y = 0; y < radix; y = y + 1)
  