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

procedure main()
   fseq := create fibseq()
   every write(|@fseq) \ 20
   every write(|@fseq) \ 20
end