# bottles.eas - sing "99 bottles of beer on the wall" # SCCSID("@(#)/export/home/staff/mike/src/language/eta/easpit/SCCS/s.bottles.eas 1.2") # Entry point: jump past included and defined routines N1 N
bottles of beer" # Sole argument: number of bottles. >nBoB: N1 H # prologue A N1 N bottles of beer on the wall" # Sole argument: number of bottles. >nBoBotW: N1 H # prologue A N1 NMAIN: N99 # Stack invariant is trivial: top is number of bottles left. >LOOP: N0 H A N1 N