/* Loops/Do-while */
do_while_demo:
  procedure options(main);
  declare
    i fixed binary;
  i = 0;
  do while ('1'b);
    i = i + 1;
    put skip list(i);
    if mod(i, 6) = 0 then
      goto lab_done;
  end;
  lab_done:
end;