declare code takes kw i=
KWS[$kwns$_S_$[++kwstot]]=$code KWS[$kwns$_S_$kwstot$_S_]=$takes
for kw ; do
 KWS[$kwns$_S_$_S_$kw]=$kwstot KWS[$kwns$_S_$kwstot$_S_$[++i]]=$kw
done
 
