MODULE BottlesOfBeer EXPORTS Main; FROM IO IMPORT Put ; FROM Fmt IMPORT Int ; VAR bottles := 99 ; BEGIN WHILE (bottles > 0) DO Put(Int(bottles) & " bottle(s) of beer on the wall,\n") ; Put(Int(bottles) & " bottle(s) of beer. \n") ; Put("Take one down, and pass it around,\n"); DEC(bottles); Put(Int(bottles) & " bottle(s) of beer on the wall.\n"); END ; END BottlesOfBeer.