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

define outer();
   define inner(n);
      if n = 0 then
         goto final;
      endif;
      inner(n - 1);
   enddefine;
   inner(5);
   final:;
enddefine;