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