By: Eric S. Raymond (http://www.catb.org/~esr/)

	THROUGH TAKEN,FOR I=100,-1,I.GE.2
	PRINT FORMAT WALL,I,I
	PRINT FORMAT DOWN
TAKEN	PRINT FORMAT LEFT,I
	PRINT FORMAT WALL1
	PRINT FORMAT DOWN
	PRINT FORMAT LEFT0
	VECTOR VALUES WALL=$1H0,I2,30H BOTTLES OF BEER ON THE WALL, ,I2,
      1 17H BOTTLES OF BEER,*$
	VECTOR VALUES DOWN=$34H0TAKE ONE DOWN AND PASS IT AROUND,*$
	VECTOR VALUES LEFT=$1H0,I2,17H BOTTLES OF BEER./*$
	VECTOR VALUES WALL1=$33H01 BOTTLE OF BEER ON THE WALL,, 1
      1 15H BOTTLE OF BEER*$
	VECTOR VALUES LEFT0=$19H00 BOTTLES OF BEER.*$
	END OF PROGRAM

This is Michigan Algorithm Decoder, commonly known as MAD, an Algol 58
variant dating from 1962 on the IBM 709 and now long extinct.  I'm
working on a retrocompiler for it, and this code has been tested and
works.