lambda.erl

-module(lambda).
-export([beer/0]).

beer() ->
    Fun =
	fun
	    BeerFun(N) when N =:= 0 ->
	        io:format("No more bottles of beer on the wall, no more bottles of beer.~n"),
	        io:format("Go to the store and buy some more, 99 bottles of beer on the wall.~n~n");
	    BeerFun(N) when N =:= 1 ->
		io:format("1 bottle of beer on the wall, 1 bottle of beer.~n"),
		io:format("Take it down, and pass it around, no more bottles of beer on the wall.~n~n"),
		BeerFun(N - 1);
	    BeerFun(N) ->
		io:format("~w bottles of beer on the wall, ~w bottles of beer.~n", [N,N]),
		io:format("Take one down, and pass it around, ~w bottles of beer on the wall.~n~n", [N]),
		BeerFun(N - 1)
	end,
    (Fun)(99).