4.3BSD/usr/contrib/icon/book/11/fibseq1.icn

procedure fibseq()
   local i, j, k
   suspend (i := 1) | (j := 1)
   repeat {
      suspend k := i + j
      i := j
      j := k
      }
end