ammunition_factory.erl

-module(ammunition_factory).
-export([repeat_explosion/2,time_bomb/1]).

time_bomb(0) -> exit("boom!");
time_bomb(N) ->
  timer:sleep(1000),
  time_bomb(N-1).

repeat_explosion(0,N) ->
  _Pid = spawn_monitor(fun() -> time_bomb(N) end),
  receive X -> io:format("~p\n",[X])
  end;

repeat_explosion(R,N) ->
  _Pid = spawn_monitor(fun() -> time_bomb(N) end),
  receive X -> io:format("~p\n",[X]), repeat_explosion(R-1,N)
  end.