sub MAIN(Str $file, *@letters) { my %letters := @letters.Bag; .say for $file.IO.words.grep: { %letters (>=) .comb.Bag } }