Mathematica is a computer algebra system. (* Mathematica version of 99 Bottles of Beer *) (* Bill Dall *) Do[If[i>1, Print[i, " more bottles of beer on the wall. ",i, " more bottles of beer."]; Print["Take one down, pass it around."], (* else *) Print["1 more bottle of beer on the wall. 1 more bottle of beer."]; Print["Take one down, pass it around."]; Print["No more bottles of beer on the wall."] ], (* If *) {i,99,1,-1}]