RosettaCodeData/Task/Loops-Do-while/Lisaac/loops-do-while.lisaac

+ val : INTEGER;
{
  val := val + 1;
  val.print;
  '\n'.print;
  val % 6 != 0
}.while_do { };