my $i=0;
 foreach my $ts ($te->table_states) {
   $i++; next if $i==1;
   print "Table (", join(',', $ts->coords), "):\n";
   foreach my $row ($ts->rows) {
   foreach (@$row) {
       tr{\t\r\n\xAO}{ }s;
       s{^\s+}{};
       s{\s+$}{};
   }
   print "@$row[2] @$row[4]";
   }