-module(what).

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

run(N) -> spawn_new(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: ~f~n", [Num]),
    Pid = spawn_link(what, loop, [Num]),
    Pid ! trigger,
    spawn_new(Num - 1).

loop(N) ->
    receive
        _ ->
            io:fwrite("Hi! I'm process number ~B~n", [N])
            loop(N)
    end.