4.3BSD/usr/contrib/icon/book/f/limit4.icn

procedure limit(p,i)
   local j
   j := &pos
   suspend p() \ i
   &pos := j
end