val mpi_init = _import "mpi_init": unit -> unit;
val mpi_barrier = _import "mpi_barrier": unit -> unit;

fun lorenzij () =
  let
    val p::w::ij = map (valOf o IntInf.fromString) (CommandLine.arguments());
    val [p, w] = map Lorenz.nat_of_integer [p,w];
    val [i, j] = map Lorenz.Int_of_integer ij;
    val _ = Lorenz.lorenz_irects p w i j
  in
    ()
  end
  handle _ => print "\n= Exception.\n"
  ;
mpi_init();
lorenzij();
mpi_barrier();
