fact.erl

-module (fact).
-export ([fact/1]).

print(X) ->
    io:format("~p\n",[X]).

fact(0,Pid) ->
    Pid ! 1;
fact(N,Pid) ->
    Id = spawn(fun () ->
		       receive 
			   M ->
			       print(M),
			       Pid ! (M*N)
		       end
	       end),
     fact(N-1,Id).

fact(N) ->
    Id = spawn(fun () ->
		       receive
			   M ->
			       print(M)
		       end
	       end),
	fact(N,Id).