UsefulProcedures, a short Mathematica (version 2.2) package of miscellaneous functions (such as the cartesian product of an arbitrary list of sets), and CombinatoricsOnWords, a longer package dealing with the combinatorics of words on an alphabet.