-module(what).

-export([run/1, loop/1]).

run(N) ->
    io:fwrite("Attempting to generate ~B processes~n", [round(N)]),
    spawn_new(round(N)).

spawn_new(0) ->
    Pid = spawn_link(what, loop, [0]),
    Pid ! trigger;

spawn_new(Num) when Num < 0 -> io:fwrite("Insert a positive number ~n");

spawn_new(Num) ->
    io:fwrite("Spawning process number: ~B~n", [Num]),
    Pid = spawn_link(what, loop, [Num]),
    Pid ! trigger,
    spawn_new(Num - 1).

loop(N) ->
    receive
        _ ->
            rand:seed(exrop, {N, N, N}),
            io:fwrite("I'm a process. I generated number ~B from seed ~B ~n", [rand:uniform(100000), N]),
            loop(N)
    end.