gistfile1.txt

    multi method categorize( &test, *@list ) {
        fail 'Cannot .categorize an infinite list' if @list.infinite;
        for @list {
            say $_;
            for test($_) -> $k {
                say :$k.perl;
                say "blue" ~ $_;
                self{$k}.push: 1;
                say self{$k}.perl;
            }
        }
        self;
    }