print $out_file "Lexicons: ", join(', ', map{s/.*\///} @ARGV[FIRST_LEXICON .. $#ARGV]), "\n";