i := 0;
do {
   i += 1;
   i->PrintLine();
}
while (i % 6 <> 0);