let () =
  Printf.printf "Hello from rank %d of %d.\n"
  Parallel.rank Parallel.size