use v6;

my @a = 1, 3, 5, 6, 3, 4;
say '@a is ' ~ @a.perl;
my @b = 4, 3, 2, 6, 3;
say '@b is ' ~ @b.perl;

say "Using « for \@b - " ~ '(say (@a »+« @b).perl;)';
say (@a »+« @b).perl;
prompt "Continue";
say "Using >> for \@b - " ~ '(say (@a >>+>> @b).perl;)';
say (@a >>+>> @b).perl;
my $op = prompt "Try with '»' or '<<'? (1/2)";
if $op == 1 {
    say "Using » for \@b - " ~ '(say (@a »+» @b).perl;)';
    say (@a »+» @b).perl;
}
else {
    say "Using << for \@b - " ~ '(say (@a >>+<< @b).perl;)';
    say (@a >>+<< @b).perl;
}