4.3BSD/usr/contrib/icon/book/15/lmatch.icn

procedure lmatch(slist)
   suspend =!slist
end