for key value in ${(kv)wms} ; do
if check4progs $value >/dev/null ; then
available[$key]=$value
# test if word could be added to current line
for key value in ${(kv)wms} ; do
if check4progs $value >/dev/null ; then
available[$key]=$value
# test if word could be added to current line