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