99 bottles of beer: Difference between revisions

=={{header|RPL}}==

≪ " bottles" " of beer" " on the wall" "Take one down and pass it around,"

→ n b of on take

≪ n 1 '''FOR''' j

j →STR b + of + DUP on + "," + 1 DISP

"," + 2 DISP

take 3 DISP

j 1 ≠ LAST - →STR "No more" IFTE

b +

'''IF''' j 2 == '''THEN''' 1 OVER SIZE 1 - SUB '''END'''

of + on + "." + 4 DISP

-1 '''STEP'''

≫ ≫ '<span style="color:blue">BOB</span>' STO

99 <span style="color:blue">BOB</span>