#!/usr/bin/perl -wT
#

sub print_delayed
{
my ($delay, $h, $m, $s, $ms) = @_;
#print "time: $h, $m, $s, $ms\n";

$ms += $delay;

while ($ms > 999) { $ms -= 1000; $s++; }
while ($s  >  59) { $s -= 60;    $m++; }
while ($m  >  59) { $m -= 60;    $h++; }

printf "%02d:%02d:%02d,%03d", $h, $m, $s, $ms;
}

$delay = $ARGV[0];

while (my $s = <STDIN>)
{

	if ( $s =~ /^\d\d:\d\d:\d\d/)
	{
		chomp $s;
		($from, $to) = split " --> ", $s;
		#print "from, to: $from, $to\n";

		($h1, $m1, $s1, $ms1) = split /[:,]/, $from;
		($h2, $m2, $s2, $ms2) = split /[:,]/, $to;
	
		print_delayed($delay, $h1, $m1, $s1, $ms1);
		print " --> ";
		print_delayed($delay, $h2, $m2, $s2, $ms2);
		print "\n";

	} else {
		print $s;
	}
}

####################################