read `ANA.txt`:

S:=ENGLISH():

for A from 2 to 17 do
M:=ANAG(S,A):
print(``):
print(`-----------------------------------`):
print(``):
print(`There are`, nops(M), `anagram sets with `, A, `letters, here they are `):
print(``):
for B from 1 to nops(M) do
print(CATS(M[B])):
od:
od:
print(``):
quit: