Select Code to Download

macro statement_control:<my_while>($expr, &whileblock) {
  while $expr &whileblock();
...
  }
  $i++;
}

sub my_while(Code &expr, Code &whileblock) {
  while &expr() &whileblock();
}

use strict;
use warnings;
...
  };
  $i++;
};