library(pbdMPI, quiet=TRUE)
init()
my.rank <- comm.rank()
comm.print(my.rank, all.rank=TRUE)

finalize()