1% called with
    2% mpirun -np 4 swipl hello.pl
    3%
    4
    5:- use_module(library(lam_mpi)).    6
    7
    8main:-
    9       mpi_init,
   10       mpi_comm_size(Sz),
   11       mpi_comm_rank(Rank),
   12       mpi_version(V0,V1),
   13       format('MPI ~d.~d workers=~d id=~d~n', [V0,V1,Sz, Rank]),
   14       mpi_finalize.
   15
   16:- main,halt.