BEGIN { $| = 1; print "1..7\n"; }
END {print "not ok 1\n" unless $loaded;}
use Perl6::Currying;
$loaded = 1;
print "ok 1\n";

my $print = sub ($ok,$val) { print "$ok $val\n" };

$print->("ok",2);

my $ok = $print.prebind(ok=>"ok");
$ok->(3);

my $four = $print.prebind(val=>4);
$four->("ok");


sub show($ok, $val) { print "$ok $val\n" }

show("ok",5);

$ok = &show.prebind(ok=>"ok");
$ok->(6);

*seven = prebind &show: (val=>7);
seven("ok");