LFE tutorial 18 - processes

lfe-tut-18.lfe

(defmodule lfe-tut-18
  (export (start 0)
          (say-something 2)))

(defun say-something
  ([what 0]
   'done)
  ([what times]
   (lfe_io:format "~p~n" (list what))
   (say-something what (- times 1))))

(defun start []
  (spawn 'procs 'say-something '(hello 3))
  (spawn 'procs 'say-something '(goodbye 3)))