library(pbdMPI)
init()

rank <- comm.rank()
size <- comm.size()
node <- Sys.info()[["nodename"]]

msg <- sprintf("Hello from rank %d of %d on node %s", rank, size, node)
all_msgs <- gather(msg, rank.dest = 0)

if (rank == 0) cat(unlist(all_msgs), sep = "\n")

finalize()