procedure lmatch(slist)
   suspend =!slist
end