RosettaCodeData/Task/Flow-control-structures/Pop11/flow-control-structures-2.pop11

while condition1 do
   while condition2 do
      if condition3 then
         goto l;
      endif;
   endwhile;
endwhile;
l:;