gistfile1.perl

pmichaud@orange:~/rakudo$ cat ../rak/b1.p6 
say 'start ', time;
my $n = 15;
loop (my $i=0; $i<1000; $i++)
{
        $n *= 3;
        $n /= 2;
        $n /= 3;
        $n *= 2;
        $n += 2;
}

say $n;
say 'done ', time;