#!/usr/athena/bin/perl

$n = shift;

while(<>){
	split;
	$_[6]*=10000;
	print "$_[2] $_[3] $_[4] $_[5] $_[6] $n\n";
}