my @a := 1..Inf;
say @a[^10];
my @primes := @a.grep(*.is-prime);
say @primes[^10];
my @nprimes := @primes.map({ "{++state $n}: $_" });
.say for @nprimes[^10];
.say for (1..Inf
==> grep(*.is-prime)
==> map({ "{++state $n}: $_" })
)[^10];
my @a := (1, 2, 3);
say @a.WHAT;
say @a.elems;
my @b = (1, 2, 3);
@b[0] := my $x;
$x = 42;
say @b;
my $a;
my $b;
$b := $a;
$a = 7;
say $b;
$b = 8;
say $a;
my $original = 5;say $original;
my $mirror;
$original := $mirror;
say $mirror;
$original ::= $mirror;
say $mirror;
$original = 3;
say $mirror;
$original =:= $mirror;
$original === $mirror;
my @s := (loop { 42.say }).list;
@s[2];
@s[1];
@s[4];