#!/usr/local/bin/perl

while(<>){
  chop;
  s/^\s*//;
  $ver=$ARGV;
  $ver=~s/gp-term//;
  $ver=~s/\.txt//;
  $term{$_}.="$ver ";
}
foreach $t (sort(keys(term))) {
  $term{$t}=~s/\s$//;
  if ($term{$t}=~/5$/) {
    $term{$t}.="      ";
  } elsif ($term{$t}=~/6$/) {
    $term{$t}.="   "; 
  }
  @_=split(" ", $t);
  $tt=shift(@_);
  $ttt=join(" ", @_);
  printf "%12s: %8s: %s\n", $tt, $term{$t}, $ttt;
}
