procedure main()
   f := open("seek.icn")
   write(image(seek(f,11)))
   write(where(f))
   write(read(f))
   write(where(f))
   write(where(f))
   seek(f,-2)
   write(where(f))
   write(reads(f, 1))
   write(where(f))
   where()
end