#!/usr/bin/perl6
BEGIN {
if $* PERL.version before Version.new ( '6.c' ) {
my $first- release- date = Date.new : 2015 , 12 , 25 ;
say "This version of the compiler $*PERL.compiler.version()" ;
say "is from before the official release of Perl 6 on $first-release-date." ;
say '' ;
my $compiler = $* PERL.compiler ;
my ( $year, $month) = $compiler.version .parts [ 0 , 1 ] ;
my $this- compiler- date = Date.new ( : $year, : $month ) ;
say "In fact it could be from { $first-release-date - $this-compiler-date } days before that." ;
my $build- date = $compiler.build - date.Date ;
say "It was built on $build-date, which is still { $first-release-date - $build-date } days before the release." ;
say '' ;
say 'refusing to run' ;
}
}
say { [ X] $^ a xx$^ b} ( ( 0 , 1 ) , 2 ) ;
say { [ X] $^ a xx$^ b} ( ( 1 , 0 ) , 2 ) ;
say { [ X] $^ a xx$^ b} ( ( 0 , 1 , 2 ) , 2 ) ;
say { [ X] $^ a xx$^ b} ( ( 0 , 1 ) , 5 ) ;
IyEvdXNyL2Jpbi9wZXJsNgoKQkVHSU4gewogIGlmICQqUEVSTC52ZXJzaW9uIGJlZm9yZSBWZXJzaW9uLm5ldygnNi5jJykgewogICAgbXkgJGZpcnN0LXJlbGVhc2UtZGF0ZSA9IERhdGUubmV3OiAyMDE1LDEyLDI1OwogICAgc2F5ICJUaGlzIHZlcnNpb24gb2YgdGhlIGNvbXBpbGVyICQqUEVSTC5jb21waWxlci52ZXJzaW9uKCkiOwogICAgc2F5ICJpcyBmcm9tIGJlZm9yZSB0aGUgb2ZmaWNpYWwgcmVsZWFzZSBvZiBQZXJsIDYgb24gJGZpcnN0LXJlbGVhc2UtZGF0ZS4iOwogICAgCiAgICBzYXkgJyc7CiAgICAKICAgIG15ICRjb21waWxlciA9ICQqUEVSTC5jb21waWxlcjsKICAgIG15ICgkeWVhciwkbW9udGgpID0gJGNvbXBpbGVyLnZlcnNpb24ucGFydHNbMCwxXTsKICAgIG15ICR0aGlzLWNvbXBpbGVyLWRhdGUgPSBEYXRlLm5ldyggOiR5ZWFyLCA6JG1vbnRoICk7CiAgICBzYXkgIkluIGZhY3QgaXQgY291bGQgYmUgZnJvbSB7ICRmaXJzdC1yZWxlYXNlLWRhdGUgLSAkdGhpcy1jb21waWxlci1kYXRlIH0gZGF5cyBiZWZvcmUgdGhhdC4iOwogICAgbXkgJGJ1aWxkLWRhdGUgPSAkY29tcGlsZXIuYnVpbGQtZGF0ZS5EYXRlOwogICAgc2F5ICJJdCB3YXMgYnVpbHQgb24gJGJ1aWxkLWRhdGUsIHdoaWNoIGlzIHN0aWxsIHsgJGZpcnN0LXJlbGVhc2UtZGF0ZSAtICRidWlsZC1kYXRlIH0gZGF5cyBiZWZvcmUgdGhlIHJlbGVhc2UuIjsKICAgIAogICAgc2F5ICcnOwogICAgc2F5ICdyZWZ1c2luZyB0byBydW4nOwogICAgZXhpdCAxOwogIH0KfQoKc2F5IHtbWF0gJF5hIHh4JF5ifSggKDAsMSksIDIgKTsKc2F5IHtbWF0gJF5hIHh4JF5ifSggKDEsMCksIDIgKTsKc2F5IHtbWF0gJF5hIHh4JF5ifSggKDAsMSwyKSwgMiApOwoKc2F5IHtbWF0gJF5hIHh4JF5ifSggKDAsMSksIDUgKTs=