Common Algorithmic Language.
0010  // bottles of beer
0020
0030  FOR x# := 99 TO 1 STEP -1 DO
0040     bottles(x#, TRUE)
0050     bottles(x#, FALSE)
0060     PRINT "Take one down, pass it around."
0070     bottles(x#-1, FALSE)
0080  ENDFOR x#
0090
0100  END
0110
0120  PROC bottles(num#, wall) CLOSED
0130     PRINT num#;
0140
0150