#!/afs/athena/contrib/perl/p 

while(<>) {
	$cur = $_;
	@arr = split(/:/, $cur);
	
	@i = split(' ',$arr[0]);
	$,=' ';
	print @i[1..3], "h\t";
	shift(@arr);
	shift(@arr);
	shift(@arr);
	@i = split(' ',$arr[0]);
	print $i[1], "\t", $arr[1], "\t" ,pop(@i), "\t";

	shift(@arr);
	shift(@arr);
	shift(@arr);
	@i = split(' ',$arr[0]);

	print "mac", $i[3] , "\t", "sys ";
	printf("%x\n",$i[5]);
}