4.3BSD/usr/contrib/icon/book/14/break4.icn

procedure main()
   local i
   every write(i := fibseq()) do
      if i > 5000 then break
end