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

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