ping.lfe

(defmodule ping
  (export (start 0) (stop 0) (init 0) (loop 0)))

(defun start ()
  (let ((pid (spawn #(ping init ()))))
    (register 'ping pid)))

(defun stop ()
  (! 'ping 'stop))

(defun init ()
  'ok)

(defun loop ()
  (receive
    (('ping from) ((! from 'pong) (loop)))
    (('stop) 'ok)))