'begin'

'comment'
    99 Bottles of Beer on the Wall
    written in Algol60, for the a60 interpreter
    by Erik Schoenfelder.

    Lower case, whitespace, ASCII, literal strings,
    implementation character set, etc, and other    
    modern conceits are ahistoric and waste cards and tape.

    Tom Jennings 5 Jan 2006
;

'integer' 'procedure' bottles(n);
'value' n;
'integer' n;
'begin'
    'if' n < 1 'then' outstring(1, "no more ") 'else' outin