      pee =  nnodes()
      next = mod(nodeid() + 1,pee)
      call snd(314159, A(7), 8, next, 100)
      prev = mod(nodeid() - 1,pee)
      call rcv(314159, B(1), 8, prev, 100)
