-module(ping).
-export([start/0, send/1, loop/0]).

start() -> spawn_link(ping, loop, []).

send(Pid) ->
    Pid ! {self(), ping},
    receive  pong -> pong end.

loop() ->
    receive
	{Pid, ping} -> 
	    spawn(crash, do_not_exist, []),
	    Pid ! pong,
	    loop()
    end.