{
   local @_;
   alias $_[0] = $x;
   alias $_[1] = $x++;
   &print;
}