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

procedure main()
   while line := read() do
      if match("skip",line) then	# check for lines to skip
         while line := read() do	# skip loop
            if match("end",line) then break
            else next
      else write(line)	# write line in main loop
end