bottles 0 = "no more bottles"
bottles 1 = "1 bottle"
bottles n = show n ++ " bottles"
verse 0   = "No more bottles of beer on the wall, no more bottles of beer.\n"
         ++ "Go to the store and buy some more, 99 bottles of beer on the wall."
verse n   = bottles n ++ " of beer on the wall, " ++ bottles n ++ " of beer.\n"
         ++ "Take one down and pass it around, " ++ bottles (n-1)
                                                 ++ " of beer on the wall.\n"
main      = mapM (putStrLn . verse) [99,98..0]

bottles = FunctionMaker(n);
bottles(0).eq("'no more bottles'");
bottles(1).eq("'1 bottle'");
bottles(n).eq("n + ' bottles'");

verse = FunctionMaker(n);
verse(0).eq(function(){
  return "No more bottles of beer on the wall, no more bottles of beer.\n"+
    "Go to the store and buy some more, 99 bottles of beer on the wall."
});
verse(n).eq(function(n){
  return bottles(n) + " of beer on the wall, " + bottles(n) + " of beer.\n"+
    "Take one down and pass it around, " + bottles(n-1) + 
    " of beer on the wall.\n"
});

var count = 5;
var i     = count+1;

while (--i+1) p(verse(i))

fib = FunctionMaker(n);
fib(0).eq(1);
fib(1).eq(1);
fib(n).eq("fib(n-2)+fib(n-1)");
p(fib(10));
// dump memoized value
p(fib.memo.toJSON())

89
{
 "0" : 1,
 "1" : 1,
 "2" : 2,
 "3" : 3,
 "4" : 5,
 "5" : 8,
 "6" : 13,
 "7" : 21,
 "8" : 34,
 "9" : 55,
 "10" : 89
}