4.3BSD/usr/contrib/icon/libtest/t-seek.icn

procedure main()
   f := open("t-seek.icn")
   write(seek(f,10,0))
   write(read(f))
end