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

procedure rtl(s)
   suspend s[*s to 1 by -1]
end