read `KW.txt`:
L[3]:=[seq(BetterCount(3,i),i=1..1000)];