#!/usr/bin/perl
#
# Programmer:    Craig Stuart Sapp <craig.stanford.edu>
# Creation Date: Sat Dec 13 14:04:20 PST 2008
# Last Modified: Sat Dec 13 14:04:20 PST 2008
# Filename:      /disk/linux3/craigsites/mazurka/website/nonmazurka/beethoven/gieseking1937/flipbeatmap
# Syntax:        perl 5
#
# Description:
#

use strict;

my $line;
my $beat;
my $time;
my @fields;

while ($line = <>) {
   chomp $line;
   $line =~ s/^\s*//;
   $line =~ s/\s*$//;
   @fields = split(/\s+/, $line);
   $beat = $fields[0];
   $time = $fields[1];
   next if @fields < 2;
   $beat =~ s/\.0+$//;
   print "$time\t$beat\n";
}