BEGIN
  COMMENT
     Simula version of 99 beers
     Maciej Macowicz (mm@cpe.ipl.fr)
     Status: UNTESTED :)

     Amended 2007-03-10 by Jack Leunissen (jack.leunissen@wur.nl)
     Status: WORKING (at least it prints and counts correctly)
  ;
  INTEGER bottles;
  INTEGER num;

  num := 2;
  FOR bottles:= 99 STEP -1 UNTIL 1 DO 
  BEGIN
    IF (bottles < 10) THEN num := 1;
    OutInt(bottles,nu