#!/usr/bin/env perl

open (O, ">TK.dat") or die;

print O "# U/Pi*Gamma T_K\n";

foreach (<[0-9]*>) {
  -d or next;
  chdir $_;
  my $tk = `findrootlin td-Sz2.dat 0.07`;
  chomp($tk);
  $x = 1/$_;
  print O "$x $tk\n";
  chdir "..";
}
