#!/usr/bin/perl -w
my $i=0;
my $pref = $ARGV[0];
open (DICT, ">$pref.dict");
while (<STDIN>) {
	$i++;
	my @in = split(/\s+/);
	my $fmt = sprintf "%5s-%10.10d",$pref,$i;
	print "$in[0]\t$fmt\n";
	print DICT "$fmt $in[1]\n";
}
close(DICT);