../../Task/Probabilistic-choice/Perl-6