--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/5-Erlang/infinirun.erl	Sat Feb 03 20:42:51 2018 +0000
@@ -0,0 +1,21 @@
+-module(infinirun).
+-export([loop/0]).
+
+% To run, call: Restarter = spawn(fun infinirun:loop/0).
+% Then call Restarter ! new to initiate
+% This does black magic and registers a public atom called "revolver", which is a process running roulette:loop/0 that can receive messages
+loop() ->
+    % Indicate that we want exist signals, which are a 3-tuple of { 'EXIT', From, Reason }
+    process_flag(trap_exit, true),
+    receive
+        new ->
+            % Start a new process
+            io:format("Creating and monitoring process.~n"),
+            register(revolver, spawn_link(fun roulette:loop/0)),
+            loop();
+        {'EXIT', From, Reason} ->
+            io:format("The shooter ~p died with reason ~p. Restarting…~n", [From, Reason]),
+            % Send ourselves a message to register a new process
+            self() ! new,
+            loop()
+end.
\ No newline at end of file