:- use_module(library(lam_mpi)).

:- initialization(main).

main :-
       mpi_init,
       mpi_comm_size(Sz),
       mpi_comm_rank(Rank),
       mpi_version(V0,V1),
       format('MPI ~d.~d workers=~d id=~d~n', [V0,V1,Sz, Rank]),
       mpi_finalize.