#!/usr/bin/perl
# TODO use $ENV{FS}
while (<STDIN>) {
	chomp;
	print join("\t", @ARGV, $_), "\n";
}