p <- fork()
if (inherits(p, "masterProcess")) {
  cat("I’m a child! ", Sys.getpid(), "n")
  exit(,"I was a child")
}
cat("I’m the mastern")
unserialize(readChildren(1.5))

id = mcparallel({ Sys.sleep(5); TRUE })

mccollect(id)