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

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