for(;;) {
  do tcl stuff...

  seek
  read
  print
}