use lib 'lib';
use strict;
use warnings;
use Blacknote::Macros;

my $func = lambda($a,$b) {
	print "$a $b $_[2]\n";
};
$func->(qw(1 2 3));

defun myfunc ($one, $two, $three) {
	print $one, $two, $three, $_[3] . "\n";
}

myfunc qw(1 2 3 4);
my $empty = lambda(){};
$empty->();
my $x = sub {my () = @_; print join"",@_,"\n";};
$x->("x");

lambda($f,$a){
	$f->($a);
}->(lambda($b){print "B = $b\n"}, "b");

.