Limbo is compiler for Lucent Technologies new Inferno Operating System.

implement BeerBottles;

include "sys.m";
	sys: Sys;
include "draw.m";
	draw: Draw;

BeerBottles: module
{
	init: fn(ctxt: ref Draw->Context, agv: list of string);
};

init(ctxt: ref Draw->Context, argv: list of string)
{
	sys = load Sys Sys->PATH;
	for (int bottles = 99; bottles > 0; bottles--) {
		sys->print("%d bottle(s) of beer on the wall,\n",bottles);
		sys->print("%d bottle(s) of beer.\n",bottles);
		sys->print("Take one down, pass it around,\n");
		sys->print("%d bottle(s) of beer on the wall.\n\n");
	}
}