%% $Id: factserver.erl,v 1.3 2013/04/05 18:36:59 leavens Exp leavens $ -module(factserver). -export([start/0]). -import(factorial,[fact/1]). -spec start() -> pid(). start() -> spawn(fun server/0). -spec server() -> none(). server() -> receive {Pid, compute, N} -> Pid!{ok, fact(N)} end, server().