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

procedure posint()
   local i
   i := 0
   suspend |(i +:= 1)
end