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