do {
   local @_;
   ++$i; alias $_[0] = $i;
   ++$i; alias $_[1] = $i;
   &f;
}