4.3BSD/usr/contrib/icon/book/02/next.icn

procedure main()
   while line := read() do
      if match("comment",line) then next
      else write(line)
end