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

procedure To(i,j)
   while i <= j do {
      suspend i
      i +:= 1
      }
end