#!/usr/local/bin/perl

$n = 0;
$i_track = 1;  $track = "T001";
$eflat_asc = 0;
while ( $line = <STDIN> ) {
    if ( $line =~ /^#/ ) {
	 print $line;
	 next;
     }

    chop($line);
    ($time, $eflat, $eflon, $tpx, $tpx_sig, $rest) = split(" ", $line);

    if ( $n > 0 ) {
	if ( $eflat > $eflat_prev ) {
            $eflat_asc = 1;
        } else {
	    $eflat_asc = 0;
	}
	if ( $n > 1 ) {
	    if ( $eflat_asc_prev != $eflat_asc ) {
		$i_track++;
		$track = sprintf("T%3.3d", $i_track);
	    }
 	}
    }

    $eflat_asc_prev = $eflat_asc;
    $eflat_prev = $eflat;
    print $line, " $track\n";
    $n++;
}