4.3BSD/usr/contrib/icon/book/15/arb.icn

procedure arb()
   suspend &subject[.&pos:&pos <- &pos to *&subject + 1]
end