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