#!/usr/athena/bin/perl

$_ = <STDIN>;
chomp;

my @f = split (/\t/, $_);

my $dstr = $f[0];
my $dolval = $f[1];

my $cmdstr = "date -d '$dstr' '+%s'";

my $num = `$cmdstr`;
chomp ($num);

my $ich = $num;
$num = 0;

print "$num\t$dolval\n";

while (<>) {
    chomp;
    
    @f = split (/\t/, $_);

    $dstr = $f[0];
    $dolval = $f[1];
    
    $cmdstr = "date -d '$dstr' '+%s'";

    my $numstr = `$cmdstr`;
    chomp ($numstr);
    
    $num = $numstr - $ich;
    
    print "$num\t$dolval\n";

}