sub clear {
  $tx->delete('1.0','end');
}