#include <stdio.h>
#include <mpi.h>
#include <stdlib.h>

int main(int argc, char **argv)
{
  int numprocs, myid;
  int i, ibuf, junk;
  int *order;
  MPI_Status status;

  MPI_Init(&argc, &argv);
  MPI_Comm_size(MPI_COMM_WORLD, &numprocs);
  MPI_Comm_rank(MPI_COMM_WORLD, &myid);

  if (myid == 0)
    {
      order = (int *) malloc((numprocs-1)*sizeof(int));
      for (i=0;i<numprocs-1;i++)
	{
          MPI_Recv(&ibuf,1,MPI_INT,MPI_ANY_SOURCE,MPI_ANY_TAG,MPI_COMM_WORLD, \
	       &status);
	  printf("Message %d received from %d, tag was %d\n", \
		 ibuf,status.MPI_SOURCE,status.MPI_TAG);
          order[i] = status.MPI_SOURCE;
	  ibuf = ibuf - 700;
          MPI_Send(&ibuf,1,MPI_INT,order[i],status.MPI_TAG,MPI_COMM_WORLD);
	}
      printf("Sequence received was:\n");
      for (i=0;i<numprocs-1;i++) printf("%d ",order[i]);
      printf("\n");
    }
  else
    {
      junk = 900 + myid;
      MPI_Send(&junk,1,MPI_INT,0,100+myid,MPI_COMM_WORLD);
      MPI_Recv(&junk,1,MPI_INT,0,100+myid,MPI_COMM_WORLD,&status);
      printf("Message %d received by %d, tag was %d\n",junk,myid, \
	     status.MPI_TAG);
    }
  MPI_Finalize();
  return 0;
}