Select Code to Download

use macro add => sub{ $_[0] + $_[1] };
          say => sub{ print @_, "\n"};
say(add(1, 3)); # it's replaced into 'print do{ (1) + (3) }, "\n";'