4.3BSD/usr/contrib/icon/book/04/icwrite.icn

procedure icwrite(c)
   while line := read() do
      if any(c,line) then write(line)
   return
end