resource two_processes()
   var N : int := 5
   getarg(1, N)
   write("this program creates", N, "processes")

   process process_i(i := 1 to N)
      write("this is process", i)
   end process_i
end two_processes

/* ............... Example compile and run(s)

% sr -o N_processes N_processes.sr
% ./N_processes 4
this program creates 4 processes
this is process 1
this is process 2
this is process 3
this is process 4
                                              */