use v6-alpha;
#XXX just so that File:;Spec can be used w/o being installed
unshift @*INC, 'ext/File-Spec/lib', '../ext/File-Spec/lib', '../../ext/File-Spec/lib';
require File::Spec;
my $progdir = splitpath($*PROGRAM_NAME)[1] || '.';
@*INC.push($progdir);
require Motd; #must be in PERL6LIB path, to say 'use';
my $limit = @*ARGS[0] // '2';
my $dict = canonpath("$progdir/pugspraise");
my $fh = open $dict err die $!;
my @list = =$fh;
my &tell = -> $max {
# the hash prevents the pick of identical phrases for a single
# sentence
say "Pugs is{
my %a;
# randomize the iterations for variety's sake
for 1..pick( 1..$max) {
# weight every pick equally
%a{pick @list}=1;
}
report matchval(1,%a,$max);
}."
};
tell($limit);