#!/usr/bin/perl -w

@names = <>;	# reads the entries to convert
chomp(@names);

$line = join("",@names);	# attach all together
@names = split(/\s*,\s*/,$line);
foreach (@names)
{
#	tr/[A-Z]/[a-z]/;
	$identifier=lc($_);
#	print "\t\tstringToEntry[\"$identifier\"]=".uc($_).";\n";
	$name = ucfirst($identifier);
	
	print ("$identifier(_emptyString),\n");
}