Markov chains in Perl 6