RosettaCodeData/Task/Loops-Break/PL-I/loops-break.pli

do forever;
   k = trunc(random()*20);
   put (k);
   if k = 10 then leave;
   k = trunc(random()*20);
   put skip list (k);
end;