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

procedure tab(i)
   suspend &subject[.&pos:&pos <- i]
end