gistfile1.txt

class QuickBag {
    has @.values;
    
    method add($value) {
        @.values.push($value);
    }
    
    method roll() {
        @.values.roll;
    }
}

my %letter = ('a' .. 'z').map({; $_ => QuickBag.new });
%letter{' '} = QuickBag.new;

my $last;
for $*IN.slurp.comb(/<alpha> | \s/)>>.lc>>.subst(/\s | '_'/, " ") -> $c {
    next if $c eq " " && $last eq " ";
    if $last {
        %letter{$last}.add($c);
    }
    $last = $c;
}

say "Starting chain";
my @chain := 'a', -> $c { %letter{$c}.roll } ... *;
say @chain[^80];

# 
# for %letter.keys.sort -> $letter {
#     say "$letter: { %letter{$letter}.values.join }";
# }